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PREFACE 


This publication contains the system 
related information needed to install the 
IBM DOS/VS COBOL Compiler and its 
associated COBOL Object-time Subroutine 
Library. These program products operate 
under control of the IBM DOS/VS System and 
the conversational Monitor System (CMS) 
component of VM/370 (Virtual Machine 
Facility/370) . 

This publication is in two sections , 
each of which contains information related 
to a specific system publication. You may 
insert each section in the related system 
publication if it makes your use of 
documentation easier. The related system 
publications are: 

DOS/VS System Generation . Order 

NO. GC33-5377 

DOS/VS Messages , Order No. GC33-5379 

The first section, "Program Product 
Installation," is directed to the system 
programmer or planner responsible for the 
planning and/or implementation of system 
generation and maintenance. It contains 
information corresponding to that found in 
DOS/VS System Generation . The operating 
system requirements, minimum machine 
configuration, work file requirements, and 
IOCS modules required for the DOS/VS 
compiler are described, as is the procedure 


for adding the DOS/ VS COBOL Compiler and 
Subroutine Library to the IBM DOS/VS 
System. This section also contains storage 
requirements for the compiler and the 
library. 


The second section, "Diagnostic 
Messages," is directed to the system 
operator. It lists all messages issued by 
the DOS/VS compiler to the operator's 
console. It is to be used by the operator 
in conjunction with DOS/VS Messages . 

CMS messages produced for DOS/VS COBOL 
are described in the "Using DOS COBOL Under 
CMS" section of IBM VM/370 CMS User's 
Guide for COBOL , Order No. SC28-6469. 


ADDITIONAL PUBLICATIONS 

Within the text, references are made to the 
following publications: 

DOS /VS System Management Guide , Order 
No. GC33-537 1 

DOS/VS COBOL Compiler and Library 
Programmer's Guide , Order No. SC28-6478 

Virtual Machine Facility/370 Planning 
and System Generation Guide . Order 
No. GC20-1 80 1 


Third Edition (January 1976) 


This edition replaces the previous edition (numbered SC28-6479-1) and 
its technical newsletter (numbered SN20-9120) and makes them both 
obsolete. 

This edition applies to Release 2 of the IBM DOS/VS COBOL Compiler and 
Library and to all subsequent versions and modifications unless 
otherwise indicated in new editions or technical newsletters. 

Significant changes are summarized under "Summary of Amendments," 
following the title page. Each technical change is marked by a vertical 
line to the left of the change. 

Information in this publication is subject to significant change. Any 
such changes will be published in new editions or technical newsletters. 
Before using the publication, consult the latest IBM System/370 
Bibl ioqr aphv « GC20-0001, and the technical newsletters that amend the 
bibliography, to learn which editions and technical newsletters are 
applicable and current. 

Requests for copies of IBM publications should be made to the IBM branch 
office that serves you. 

Forms for readers' comments are provided at the back of the publication. 
If the forms have been removed, comments may be addressed to IBM 
Corporation, General Products Division, Programming 
Publishing — Department J 57, 1501 California Avenue, Palo Alto, 

California 94304. All comments and suggestions become the property of 
IBM. 

© Copyright International Business Machines Corporation 1973, 1976 



Summary of Amendments 

Number 2 

Date of Publication: January 9, 1976 

Form of Publication: Revision, SC28-6479-2 

CMS Support of DOS/VS COBOL 

New: Programming Feature 


Release 3 of VM/370 supports DOS/VS COBOL compilaton and execution 
under CMS. VSAM files are also supported. 

Summary of Amendments 

Number 1 


Date of Publication: March 1, 1974 
Form of Publication: Revision, SC28-6479-1 


Support of New CBL Statement Options 

New: Programming Feature 

Release 2 of the IBM DOS/VS COBOL Compiler and Subroutine Library supports 
the programmer productivity aid options VERBSUM/NOVERBSUM, VERBREF/ 
NO VERB REF, and COUNT/NOCOUNT. 


Support of LST Statement (Lister Feature) 

New: Programming Feature 

Release 2 also supports the lister, a portion of the compiler that processes pro- 
grams written in American National Standard COBOL to produce a reformatted 
source code listing with embedded cross-reference information and uniform 
indenting conventions. 


Miscellaneous Changes: Installation Procedures 

Maintenance: Documentation Only 

Corrections have been made throughout, particularly with reference to the 
installation procedures themselves. 
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INTRODUCTION 


The IBM DOS/VS COBOL Compiler ("the compiler") and Library is a Program 
I Product that operates under control of the IBM DOS/VS system or the 
I Conversational Monitor System (CMS) component of VM/370. It contains 
the COBOL compiler, as well as the COBOL subroutines that, when 
required, are combined by the Linkage Editor with the object program 
produced by the compiler. It also contains a set of transient routines 
that can be fetched dynamically into the user*s storage area during 
program execution. And it contains a special set of COBOL statements 
that can be used to perform 3886 processing. It accepts as input any 
program written in DOS/VS COBOL. 

The DOS/VS COBOL Object -time Subroutine Library ("the library") 
associated with the DOS/VS compiler is also available as a separate 
Program Product. It contains COBOL subroutines that, when required, are 
combined by the Linkage Editor with the object program produced by the 
DOS/VS compiler. The subroutine library also contains a set of 
transient routines that can be fetched dynamically into the transient 
area or loaded dynamically into the user's storage area during program 
execution. 

Link edited programs that have been compiled by the DOS/VS COBOL 
compiler (5746-CB1) all require the presence of the DOS/VS COBOL Library 
at execution time. Note that a separate library may not be needed. The 
library packaged with the compiler can be used if the programs are 
| executing on the same CPU as the one on which they are compiled or if 
| they are executing under CMS; otherwise, there must be a separate 
library (5746-LM4) for each CPU on which the programs are executing. 

The CMS installation must order and install DOS/VS (Release 31 or 
later). If the DOS/VS COBOL programs access any VSAM data sets, DQS/VS 
VSAM and DOS/VS Access Method Services must also be installed. Then, 
the CMS installation must install the DOS/VS COBOL compiler and library. 
The compiler must be link edited in the background partition of DOS/VS, 
and all of the compiler's relocatable modules must be link edited using 
the ACTION REL linkage editor control statement. The compiler and 
library may reside on the DOS/VS system pack or on private libraries. 

The CMS installation must also execute special procedures called EXEC 
procedures to install the CMS/DOS and CMS/VSAM support on the CMS 
system. These EXEC procedures are described in the Virtual Machine 
Facility/370: Planning and System Generation Guide , Order 
No- GC2 0-1801. 

When the DOS/VS COBOL compiler is executed under CMS, it must be 
executed in the CMS/DOS environment. Before invoking the DOS/VS COBOL 
compiler or executing DOS/VS COBOL programs under CMS, be sure that the 
CMS/DOS environment has been previously generated into your CMS system 
and is active. Also, when the DOS/VS COBOL compiler and DOS/VS COBOL 
programs are executed under CMS, the DOS/VS system pack or private 
libraries must be available to CMS. 
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PROGRAM PRODUCT INSTALLATION 


This section contains the information you will need to add the IBM 
DOS/VS COBOL Compiler and its associated COBOL Object-time Subroutine 
Library to your DOS/VS System. 

The first part of this section, "System Requirements," describes the 
operating system requirements, minimum machine configuration, work file 
requirements, and LIOCS modules required by the compiler. The second 
part, "Installation Procedure," gives instructions for adding the 
compiler and the library to the system. The third part, "Storage 
Requirements," describes the amount of space required by the compiler 
and the library. 


SYSTEM REQUIREMENTS 


For DOS/VS, the compiler and the library operate under control of the 
IBM Disk Operating System (DOS/VS) . A DOS Release 29 system is the 
minimum level required. The minimum machine configuration and operating 
system requirements to support the compiler and library are described in 
this section. Execution time considerations and special requirements 
for use of the Sort feature and the Symbolic Debug feature are also 
discussed. 

For CMS, the compiler and library are controlled by the CMS/DOS 
environment. A DOS/VS system pack or DOS/VS private libraries must be 
available for CMS/DOS use. CMS/DOS requires a DOS/VS Release 31 system 
as a minimum level. The minimum virtual machine configuration and 
operating system requirements to support the compiler and library under 
CMS are described in this section. The Sort feature is not supported 
under CMS. Other execution- time considerations are also discussed in 
this section. 


OPERATING SYSTEM REQUIREMENTS 


If the SORT or MERGE verb is used in the source program under DOS/VS and 
either the sort work files are on 3400 series tape units or on 3330/3333 
DASF, or the SORT-OPTION feature is used, or the ASCII-collating 
sequence is desired or numeric sort keys are separately signed numeric 
data items, the DOS/VS SORT/MERGE Program Product, Program Number 
5746-SM1 , is required. For further information on this product see 
DOS/VS SORT/MERGE Programmer^ Guide . Order No. SC33-4018, and DOS/VS 
SORT/MERGE Installation Reference Material # Order No. SC33-4026. 

During link editing, modules produced by the compiler require 
subroutines from the library- In addition, subroutines from the library 
may be required during execution. Therefore, the library must also be 
part of the system used to control program execution. 

CMS requires access to the DOS/VS System pack or the private 
libraries that contain the DOS/VS COBOL compiler or subroutines. To 
make the system pack available at virtual address 195 as your C-disk 


5746-CB1, 5746-LM4: Program Product Installation 7 



specify the filemode when the CMS/DOS environment is invoked: 

ACCESS 195 C 

SET DOS ON C 


To make private libraries at address 193 available, access the disk 
specifying some CMS mode letter such as D, and issue ASSGN and DLBL 
commands after the CMS/DOS environment is invoked: 


ACCESS 193 
SET DOS ON 
ASSGN SYSCLB 
DLBL IJSYSCL 
ASSGN SYSRLB 
DLBL JJSYSKL 


D 

D 

D DSN ? (SYSCLB) 
D 

D DSN ? (SYSRLB) 


MACHINE CONFIGURATION FOR DOS/VS 


The mini mum DOS/VS machine configuration required to use the DOS/VS 
COBOL compiler and library is: 

1. A System/370 model supported by DOS/VS. At least 60K must be 
available to the compiler. 

2. Six work files. 

The system logical unit SYSLNK must be assigned to a single area 
(extent) on a 2311, 2314, 2319, 3330, or 3340 mass storage device. 

Five programmer logical units (SYS001 through SYS005) must 
reside on 2400, 3410, or 3420 tape units, or on 2311, 2314, 2319, 
3330, or 3340 mass storage devices. (Two programmer logical units, 
as well as the operating system, must reside on a mass storage 
device. ) 

If the four remaining logical units reside on tape, there must 
be a separate tape unit for each data set. If they reside on a 
mass storage device, there must be enough space on that device. 

See "Work File Requirements" for further information. 

workfile assignments must be made as follows: 

SYS001 — disk unit 
SYS002 -- disk or tape unit 
SY SO 03 — disk or tape unit 
SYS004 -- disk or tape unit 

SYS005 — disk or tape unit (required when Symbolic Debug is 
requested at compile time) 

SY SO 06 — disk unit (required for FIPS) 

Note that SYSLNK need not be assigned at compile time unless the 
CATAL or LINK option is in effect. 

The filenames for SYSLNK and SYS001 through SYS006 on the TLBL 
or DLBL statements are IJSYSLN, IJSYS01 , IJSYS02, IJSYS03 , IJSYS04, 
IJSYS05 , and IJSYS06 , respectively. 

3. A device for direct operator communication. 

4. A device, such as a card reader, for the job input stream. 
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5. A device, such as a printer or tape unit, for system output tiles. 

6. The floating-point arithmetic feature, if floating point literals 
or calculations are used. 

Note: All devices currently supported by previous IBM DOS COBOL 

compilers are supported by the IBM DOS/VS COBOL Compiler. These 
include: 3504/3505 (with OMB) , 3525 (with RCE and combined function 

processing), 3410/3420 Tapes, 3881 Optical Mark Reader, and 3330 Disk. 
The DOS/VS compiler also supports the 5425 Multifunction Card Unit, 2560 
Multifunction Card Machine, 3203 and 5203 Advanced Printers, 3886 
Optical Character Reader, 3340 Disk Facility, 3344 Direct Access 
Storage, 3350 Direct Access Storage in 3330-1 compatibility mode, and 
3540 Diskette Input/Output Unit. 


Execution- Time Consideration 


The amount of virtual storage must be sufficient to accommodate at 
least: 

• The selected control program. 

• Support for the file processing techniques used. 

• The load module to be executed. 

If symbolic debugging is requested, an additional work file, SYS005, 
must be assigned at compile time. This file must also be assigned at 
execution time if symbolic debugging control cards are present, though 
not necessarily to SYS005. 

If execution statistics or the 3886 Optical Character Reader feature 
are requested* additional virtual storage must be available to 
accommodate its dynamic space requirements. 

Use of the symbolic debugging, flow trace, statement number, 
execution statistics, option or the 3886 Optical Character Reader 
feature requires additional storage during execution. See IBM DOS /VS 
COBOL Compiler and Library Programmers Guide for further information. 


Sort/Merge Feature Considerations 


The DOS/VS SORT/MERGE Program Product, Program Number 5746-SM1, must be 
executed under control of DOS/VS. It requires the following minimum 
machine configuration: 

1. The DOS/VS SORT/MERGE Program Product uses 16K bytes; an additional 
6K bytes are needed for DOS and for user-written routines. 

Note : Performance often increases significantly if 50K is 

available for operation of the Sort/Merge program. At the 100K 
level, the performance could be even higher. 

2. Standard instruction set. 

3. At least one 2314, 2319, 3330, 3333, or 3340 work file. (System 
residence requirements may necessitate having an additional disk 
storage unit for sorting.) 

4. One IBM 1403, 1443, 3203, 5203, or 3211 Printer, or one IBM 
operator communication device (for example, 3215). 
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. One IBM 1442, 2501, 2520, 2540, 3505, 3525, or 2560 Card Reader, or 
one IBM 2400 or 3400 Series Magnetic Tape Unit (7- or 9 -track) 
assigned to SYSIPT and SYSRDR. 

6. Three IBM 2400 or 3400 Series Magnetic Tape Units for work files 
when tape units are to be used for intermediate storage. For a 
merge operation, no work units are required. 


Symbolic Debug Considerations 


To use the Symbolic Debug feature of the DOS/VS compiler, a fifth work 
file (SYS005) is required at compile time. When symbolic debugging is 
requested, the compiler records in SYS005 the information needed to 
produce a symbolic formatted dump if the program terminates abnormally 
or if dynamic dumps are requested. Thus, the file assigned to SYS005 at 
compile time must also be assigned at execution time. This file need 
not necessarily be assigned to SYS005, but it must be assigned in the 
partition in which the program is executed. 

SYS005 can be allocated with the other system work files (SYS001, 
SYS002, SYS003, SYS004) at system generation time. Each COBOL source 
program requesting symbolic debugging then uses the same work file. 
However, unique symbolic debugging work file assignments are required 
when several COBOL programs are to be compiled in the same job. If 
there is only one SYS005 allocated for use by all COBOL programs, 
information recorded on the file during compilation of one program is 
overlaid by infoimation placed there during compilation of a subsequent 
program. Then, when the object modules are link edited and executed, 
the information recorded during compilation will not be available if it 
has been overlaid. 

To avoid the loss of the information needed to produce a symbolic 
formatted dump, assign a unique symbolic debugging work file for each 
COBOL source program to be compiled. On a mass storage device, these 
symbolic debugging work files must be assigned to non- overlapping 
extents. The following example shows how to use ASSGN statements to 
define the symbolic debugging work file on disk. Note that the 
compilation step assigns this data set to SYS005; at execution, it is 
assigned to SYS006. 

// JOB SAMPLE 

// OPTION SYM,NODECK,NOLISTX,NOXREF,LINK 
// ASSGN SYS005,X'192' 

// DLBL DEMOXX, 99/101 ,SD 

// EXTENT SYS005, 11 1111,1,0,1100,50 

// EXEC F COBOL 

CBL SYMDMP 

(COBOL source deck) 

/* 

// EXEC LNKEDT 
// ASSGN SYS006 ,X* 1 92 ' 

// DLBL DEMOXX, 99/1 01, SD 

// EXTENT SYS006, 11 1111,1,0,1100,50 

// EXEC 

(SYMDMP control cards) 

/* 

/& 
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If the symbolic debugging work file is defined as a tape, one 
physical reel is required. The file-protect ring must be in the tape 
reel during compilation and execution. 


FIPS Considerations 


SYS006 is required only for FIPS processing. After printing the 
header and any CBL card options on SYSLST, the compiler writes the 
compilation listing on SYS006 as input to the FIPS phases. The FIPS 
output is written on SYSLST. 


MACHINE CONFIGURATION FOR CMS 


The minimum CMS virtual machine configuration will support the DOS/VS 
COBOL compiler and library, 

1. A CMS virtual machine with a minimum of 3 2 OK of virtual storage and 
with the CMS/DOS environment active is required. The compiler uses 
at least 60K of CMS user storage. 

2. System and Logical Units. 

SYSIN/SYSIPT must be assigned to the device that contains the input 
source file. SYSIN/SYSIPT can be assigned to a reader, tape, or 
disk. 

The user can issue the ASSGN command for the following units: 

SYSPCH to tape, punch, disk, or IGN 

SYSLST to tape, printer, disk, or IGN 

SYSLOG to terminal 

SYS001-SYS002 to disk 

SYS 00 3- SY SO 05 to tape or disk 

SYS 006 to disk 

Note : CMS allows "disk” to also be the 3350 in native mode. CMS does 
not support the 3540 diskette, 2311 disks', or the 2321 datacell. If 
SYSIN/SYSIPT is unassigned at compilation time, the CMS/DOS COBOL 
interface issues an error message and terminates the FCOBOL command. 

If SYSPCH, SYSLST, SYSLOG, or SYSOOOI-SYSnnn is unassigned at 
compilation time, the CMS/DOS COBOL interface sends the output to the 
SYSIN disk (if SYSIN is assigned to a read/write disk) or to the user*s 
A-disk. 

Note : SYSLNK must not be assigned; it is not supported as a system 
logical unit under CMS/DOS. 

3. Device Support 

The following devices, which are supported by DOS/VS, are not 
supported by CMS/DOS: 

• Card Readers : 1442, 2560P, 2560S, 2596, 3504, 5425P, and 5425S. 

• Disks : 3540, 2311, 2321. 

• Printers : 2560P, 2560S, 3203, 3525, 5203, 5425P, and 5425S. 

• Other Devices : 3881 OMR, 38860CR 
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Not all of the DOS/VS LIOCS modules are supported in CMS/DOS; see the 
'•LIOCS Modules” section of this manual for more information. 


Execution-Time Considerations 


If symbolic debugging is requested, an additional work file, SYS005, 
should be assigned at compile time. This file should also be assigned 
at execution time if symbolic debugging control statements are present, 
though not necessarily to SYS005. If the file is not assigned, the 
CMS/DOS^ COBOL interface directs the output to the SYSIN disk (if SYSIN 
is assigned to a read/write disk) or to the user*s A-disk. 

The SORT verb is not supported in CMS/DOS. Also, COBOL programs that 
use ISAM or segmentation cannot be executed under cms/dos. 


WORK FILE REQUIREMENTS 


This section describes the work files required by the compiler. In 
addition to SYSRES and SYSLNK, which must be assigned to disk units, the 
compiler may require up to six work files: SYS001, SYS002, SYS003, 
SYS004, SYS005, and SYS006. SYS005 is required only when the Symbolic 
Debug feature is requested. SYS006 is required for FIPS. Note : SYSLNK 
is not supported and must not be assigned for CMS/DOS. 

SYS001 and SYS006 must be assigned to a disk unit. Each of the other 
data sets (SYS002, SYS003, SYS004, and SYS005) can be assigned to either 
a tape unit or a disk unit. 

If the work files are on tape, each must be assigned to a separate 
tape unit. If the work files are on disk, the amount of disk work space 
required depends mainly on the size of the source program. The 
approximate percentages of tracks that should be assigned to each work 
file are shown in Figures 1 through 4. Estimates are for programs of 
approximately 1000 and 2100 source records. The programs are assumed to 
request a cross-reference listing, the symbolic debug feature, and the 
source program library facility (COPY and/or BASIS) . Source programs 
with the library facility require the LIB option on the COBOL option 
card (CBL card) . Programs using NOLIB require considerably less SYS004 
work space. 

For DOS/VS, work file assignments for the compiler must be made in 
each partition in which the compiler operates. For example, if the 
compiler can operate in either the background or the foreground 1 (FI) 
partition, work file assignments must be made in both the background and 
I FI. The CMS/DOS environment simulates only the background partition. 

I CMS/DOS does not support the 2311. 
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Figure 3. Approximate Allocation of Work File Space — IBM 3330 
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Figure 4. Approximate Allocation of Work File Space — IBM 3340 


FIPS Work Files 


The number of tracks required for SYS006 (the FIPS input file) 
depends on the size of the source program and compiler options 
specified. As basic output, each record contains a line of the 
compilation listing and is 121 characters in length. However, 
additional space is required whenever each of the following options is 
specified: SYM, LISTX or CLIST, XREF or SXREF. SYS006 also contains 

any error messages issued by the compiler. 


5746-CB1, 5746-LM4: Program Product Installation 13 



















































LIOCS MODULES 


The following lists contain the names of the preassembled LIOCS modules 
used by the compiler. These modules are supplied by IBM as part of the 
relocatable library when the IBM DOS/VS system is distributed. Be sure 
that the modules listed are included in the system to which the compiler 
is added . 

Certain preassembled LIOCS modules are required when cataloging IBM 
components to the core image library. Do not delete these modules from 
the relocatable library until after all the IBM components have been 
cataloged to the core image library and all program products have been 
installed. These modules are listed in “Required IOCS Modules." 

Notes : 

1. Additional LIOCS modules (for ASCII processing) are distributed 
with the DOS/VS subroutines and are added to the relocatable 
library with the subroutines. These LIOCS modules are listed under 
"Relocatable Library” in the "Storage Requirements” section. 

2. CMS/DOS does not support all the DOS/VS logical transients, nor all 
the operands of the transients it does support. The CMS/DOS 
logical transient support is described in the VM/370 CMS User 8 s 
Guide , Order No. GC20-1819. 

The procedure for generating the compiler for use with CMS/DOS is 
exactly the same as the procedure for generating it for use with DOS/VS: 
the LIOCS modules required are the same. CMS/DOS, during its open 
routines, checks that the file being opened is supported by CMS/DOS. 


Relocatable 

Module Naming Conventions 


Each module has an 8-character name. The name consists of a 3-character 
prefix and a 5-character field corresponding to the option permitted in 
generation of the module. The following 3 -character prefixes identify 
the preassembled modules shipped by IBM: 

IJC 

I/O Card (CDMOD) 


UD 

I/O Printer (PRMOD) 


UF 

I/O Magnetic Tape (MTMOD) 

) 


IJG 

Sequential Direct Access (SDMOD) 


IJH 

Index Sequential Direct Access (ISMOD) 1 


IJI 

Direct Access Method (DAMOD) 1 


IJJ 

Device Independent Access Method (DIMOD) 


IJN 

3540 Access Method (DUMOD) * 


l ISMOD, DAMOD, and DUMOD are not supported for the CMS/DOS 

environment. 
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CDMOD 


CDMOD name = IJCabcde 

a = F RBCFORM=FIXUNB (always for INPUT and CMBND files) 
= U RECFORM=UNDEF 
= V R ECFO RM=VARUN B 

b = A CTLCHR=ASA (not specified CMBND) 

= C C CNTROL=YES 
= Y CTLCHR=YES 

= Z neither CTLCHR nor CONTROL is specified 

C - B RDONLY=YES and TYPEFLE= CMBND 
= C TYPEFLE=CMBND 
= H RDONLY= YES and TYPEFLE= INPUT 
= I TYPEFLE=INPUT 

= N RDONLY= YES and TYPEFLE= OUTPUT 
= O TYPEFLE=OUTPUT 

d = B WORKA=YES and I0AREA2=YES 
= I IOAREA2=YES 

= W WORKA=YES 

= Z neither WORKA nor IOAREA2 is specified 
= Z WORKA is not specified (for CMBND files only) 

e = 0 DEVICE= 2540 
= 1 DEVICE= 1442 
= 2 DEVICE=2520 
= 3 DEVICE=25 01 

= 4 DEVICE=2540 and CRD ERR is specified 

= 5 DEVICE=2520 and CRDERR is specified 

= 6 DEVICE=3505 

= 7 DEVICE=3525 and FUNC omitted or FUNC=R or P 

= 8 DEVICE=2560 and FUNC omitted or FUNC=R or P 

= 9 DEVICE=5425 and FUNC omitted or FUNC=R or P 

= A DEVICE= 3525 and FUNC=RP 

= B DEVICE=3525 and FUNC=RW 

= C DEVICE= 3525 and FUNC=PW 

= D DEVICE=3525 and FUNC=I 

= E DEVIC E=3525 and FUNC=RPW 

= F DEVICE=2560 and FUNC=RP 
= G DEVICE=2560 and FUNC=RW 
= H DEVICE=25 60 and FUNC=PW 
= I DEVICE=2560 and FUNC=I 
= J D EVICE=25 60 and FUNC= RPW 
= K D EVICE= 54 25 and FUNC=RP 
= L D EVICE= 54 25 and FUNC=RW 
= M DEVICE=5425 and FUNC=PW 
= N DEVICE=5425 and FUNC=I 
= O DEVIC E= 54 25 and FUNC=RPW 
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CDMOD Names 


IJCFAOI1 

IJCFAOI4 

UCFAOI5 

IJCFAOI7 

UCFAOI8 

IJCFAOI9 

IJCFAOZ1 

IJCFAOZ4 


UCFAOZ5 
IJCFAOZ7 
IJCFAOZ8 
IJCFAOZ9 
UCFAOZA 
IJCFAOZC 
IJCFAOZE 
IJCFAOZF 
UCFAOZH 
IJCFAOZI 
IJCFAOZJ 
IJCFAOZK 
UCFAOZM 
IJCFAOZN 
UCFAOZO 
IJCFCIZO 
UCFCIZ1 
IJCFCI Z2 
IJCFCIZ6 
IJCFYOIO 
UCFYOI7 


IJCFZIIO 

UCFZII1 

IJCFZII2 

UCFZII3 

IJCFZII6 

IJCFZII7 

IJCFZII8 

UCFZII9 

IJCFZIZO 


UCFZIZ1 
IJCFZIZ2 
IJCFZIZ3 
IJCFZI Z6 
UCFZIZ7 
IJCFZI Z8 
IJCFZIZ9 
IJCFZI ZA 
UCFZIZB 
IJCFZI ZE 
UCFZIZF 
IJCFZI ZG 
UCFZIZJ 
IJCFZI ZK 
UCFZIZL 
IJCFZIZO 
UCFZOI1 
IJCFZOI4 


IJCFZOI5 
IJCFZOI7 
IJCFZOI8 
IJCFZOI9 
IJCFZOID 
IJCFZOZ1 
IJCFZOZ4 
IJCFZOZ5 
IJCFZOZ7 
IJFCZOZ8 
IJCFZOZ9 
IJCFZOZA 
IJCFZOZC 
IJCFZOZD 
IJCFZOZE 
I JCFZOZF 
IJCFZOZH 

IJCFZOZI 

IJCFZOZJ 

IJCFZOZK 

IJCFZOZM 

IJCFZOZN 

IJCFZOZO 


IJCUAOI4 

IJCUAOI5 

IJCUAOI8 

IJCUAOI9 


IJCUAOZ1 

IJCUAOZ4 

IJCUAOZ5 

IJCUAOZ8 

IJCUAOZ9 

IJCUAOZF 

IJCUAOZH 

IJCUAOZI 

IJCUAOZJ 

IJCUAOZK 

IJCUAOZM 

IJCUAOZN 

IJCUAOZO 


IJCUZII8 
IJCUZII9 
IJCUZIZ8 
IJCUZIZ9 
IJCUZIZF 
IJCUZIZG 
IJCUZIZJ 
I JCUZIZK 
IJCUZIZL 
IJCUZIZO 


IJCUZOI1 

IJCUZOI4 


IJCUZOI5 

IJCUZOI7 

IJCUZOI8 

IJUCZOI9 
IJUCZOZ 1 
IJUCZOZ4 
IJUCZOZ5 
IJUCZOZ7 
IJUCZOZ 8 
IJUCZOZ9 
UUCZOZF 
IJUCZOZH 
UUCZOZI 
IJUCZOZJ 
IJUCZOZK 
IJUCZOZM 

I JUCZOZN 
IJUCZOZO 


IJCVAOI1 

IJCVAOI4 

IJCVAOI5 
I JCVAOI8 
IJCVAOI9 
IJCVAOZ1 
IJCVAOZ4 
IJCVAOZ5 
IJCVAOZ8 
IJCVAOZ9 


IJCVAOZF 
IJCVAOZH 
IJCVAOZI 
IJCVAOZJ 
IJCVAOZK 
I JCVAOZM 
IJCVAOZN 
I JCVAOZO 


IJCVZII8 
IJCVZII9 
IJCVZIZ8 
I JCVZIZ9 
IJCVZIZF 
IJCVZIZG 
IJCVZIZJ 
IJCVZIZK 
IJCVZIZL 
IJCVZIZO 


IJCVZOI1 

IJCVZOI4 

IJCVZOI5 

IJCVZOI7 

IJCVZOI8 


IJCVZOI9 


IJCVZOZ1 

IJCVZOZ4 

IJCVZOZ5 

IJCVZOZ7 

IJCVZOZ8 

IJCVZOZ9 

IJCVZOZF 

IJCVZOZH 

IJCVZOZI 

IJCVZOZJ 

IJCVZOZK 

IJCVZOZM 

IJCVZOZN 

IJCVZOZO 
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DAMOD 


DAMOD name = IJIabcde 

a = B RECFORM=UNDEF (handles both UNDEF and FIXUNB) 
= F RECFORM=FIXUNB 
= S RECFORM=SPNUNB 
= V RECFORM=VARUNB 

b = A AFTER=YES 

= Z AFTER is not specified 

c = E I DLOC=YES and FEOVD=YES 
= I I DLOC=YES 
= R FEOVD=YES 
= Z neither is specified 

d = H ERREXT= YES and RELTRK=YES 
= P ERREXT=YES 
= R RELTRK= YES 
= Z neither is specified 

e = W HOLD= YES and RDONLY=YES 
= X HOLD= YES 
= Y RDONLY=YES 
= Z neither is specified 


DAMOD Names 


IJIBAIRZ 

IJIBAIZZ 

IJIBAZRZ 

IJIBAZZZ 

IJIBZIRZ 


UIBZIZZ 

IJIBZZRZ 

IJIBZZZZ 

IJIFAIRZ 

IJIFAIZZ 


IJIFAZRZ 

IJIFAZZZ 

UIFZIRZ 

IJIFZIZZ 

IJIFZZRZ 


IJIFZZZZ 

IJISAIRZ 

IJISAIZZ 

IJISAZRZ 

IJISAZZZ 


IJISZIRZ 

IJISZIZZ 

IJISZZRZ 

IJISZZZZ 
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DRMOD 


DRMOD name = IJMZabDO 


a = 

s 

SETDEV 

= YES 

= 

z 

SETDEV 

= NO 

b = 

R 

RDONLY 

= YES 

= 

Z 

RDONLY 

= NO 


DRMOD Names 


IJMZSRDO 

IJMZSZDO 

IJMZZRDO 

IJMZZZDO 


DUMOD 

DUMOD name = IJNDabcZ 

a = I input 
= O output 

b = C ERROPT=name 

c = Z RDONLY not specified 

DUMOD Names 

IJNDICZZ 

IJNDOCZZ 
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ISMOD 


ISMOD name = IJHabcde 

a = A R £CFORM=BOTH and IOROUT=ADD or ADDRTR 
= B R ECFORM=F IXBLK and IOROUT=ADD or ADDRTR 
= U RECFORM=F IXUNB and IOROUT=ADD or ADDRTR 
= Z R EC FORM is not specified and IOROUT=LOAD or RETRVE 

b = A I OROUT* ADDRTR 

= I IOROUT-ADD 

= L I CROU T= LOAD 

= R I OROUT= RETRVE 

C = B T YPEF LE -RAN SE Q 

= G X OARE A2 = Y ES and T YPEFLE=S EQNTL or IOROUT=LOAD 
= R TYPEFLE=RANDOM 

= S TYPEFLE=S EQNTL 

= Z neither is specified and IOROUT=LOAD or ADD 

d = C CORINDX=YES 

= Z CORINDX is not specified 

e = F C ORDATA=Y ES , ERREXT=YES, and RDONLY =YES 
= G C OR D ATA= Y ES and ERREXT=YES 
= O C ORDATA= Y ES and RDONLY=YES 
= P C ORDATA=Y ES 

= S ERPEXT=YES and RD ONLY = YES 

= T ERREXT=YES 

= Y RDONLY* YES 

= Z nothing is specified 


ISMOD Names 


IJHAABCP 

UHAARCZ 

IJHAARZP 

UHAARZZ 

IJHBABCP 

UHBABCZ 

IJHBABZP 

IJHBABZZ 

UHBARCP 

IJHBARCZ 

UHBARZP 

IJHBARZZ 

IJHUABCP 

UHUABCZ 

IJHUABZP 


IJHUABZZ 

IJHUARCP 

IJHUARCZ 

IJHUARZP 

IJHUARZZ 

IJHZLGZZ 

XJHZLZZZ 

IJHZRECZ 

IJHZRBZZ 


IJHZRGZZ 

IJHZRRZZ 

IJHZRSZZ 
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MTMOD 


MTMOD name = IJFabcde 

• a = F RECFORM=FIXUNB or FIXBLK 
= S RBCFORM=SPNUNB or SPNBLK 
= U RECFORM=UNDEF 
= V RECFORM=VARUNB or VARBLK 

= X ASCII RECFORM=FIXUNB or FIXBLK 
= N ASCII RECFORM=UNDEF 
= R ASCII RECFORM=VARUNB Or VARBLK 

b = E READ=BACK 

= Z R EAD= FORWARD, or READ is not specified 

C = C C KPTR EC = Y ES 

= Z CKPTREC is not specified 

d = W WORKA=YES 

= Z WORKA is not specified 

e = M ERREXT=YES and RDONLY=YES 
= N ERREXT=YES 
= Y RDONLY=YES 
= Z neither is specified 


MTMOD Names (See "Relocatable Library" in the "Storage Estimates" 
section for additional MTMOD modules.) 

UFFBZZN 

IJFFZCZZ 

UFFZZZZ 

IJFSZZWN 

IJFUZZZN 


IJFUZZZZ 

IJFVZZZN 

IJFVZZZZ 


I 
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Name list for workfile type modules (TYPEFLE*W0RK) : 
MTMOD name = IJFabcde 
a * W always 

b * E E PROP T*= YES 

* Z ERPOPT is not specified 

C * N NOTEPNT*YES 

* S NCTEP NT* POINTS 

* Z NOTEPNT is not specified 

. d * Z always 

e * M ERR EXT* YES and RDONLY*YES 

* N ERR EXT* YES 

* Y RDONLY=YES 

* Z neither is specified 


System I/O Modules 

(See "Required IOCS Modules" before deleting modules with the IJF 
prefix.) 


U FWEZZZ 
IJFWZNZZ 
UFWZZZZ 
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PRMOD 


PRMOD name = IJDabcde 


a = F R ECFORM=FIXUNB 
= V RECFORM=VARUNB 
= U RECFORM=UNDEF 


b = A CTLCHR=ASA 
= Y CTLCHR=YES 
= C CONTRCL=YES 
= S STLIST=YES 

= T DEVICE=3525 with 2-line printer 
= U DEVICE=2560 
= V DEVICE=5425 

= Z neither CTLCHR nor CONTROL nor STLIST is specified 


C = P PRINTOV=YES, DEVICE not 3525 

= I PRINTOV=YES, DEVICE=3525, and FUNC Omitted or FUNC=W[T] 

= F PRINTOV=YES , DEVICE=3525, and FUNC=RW[T] 

= C PRI NTOV= YES , DEVICE=3525, and FUNC=PW[T] 

= D PRINTOV=YES, DEVICE=3525, and FUNC=RPW[T] 

= E ERROPT=YES and PRINTOV=YES not specified 
= Z PRINTOV=YES not specified, and DEVICE not 3525 
= O PRINT0V=YES not specified, DEVICE=3525, and FUNC omitted 
or FUNC=W[T] 

= R PRINTOV=YES not specified, DEVICE=3525, and FUNC=RW[T] 

= S PRINTOV=YES not specified, DEVICE=3525, and FUNC=PW[T] 

= T PRINTOV=YES not specified, DEVICE=3525, and FUNC=RPW[T] 

= U DEVICE=2560 or 5425 and FUNC=W or omitted 

= V DEVICE=2560 or 5425 and FUNC=RW 

= W DEVICE=25 60 or 54 25 and FUNC=PW 

= X DEVICE= 25 60 or 54 25 and FUNC=RPW 

d = I ICAREA2=YES 

= Z IQAREA2 is not specified 

e = V RDONLY=YES and WORKA= YES 
= W WORKA=YES 
= Y RDONLY= YES 
= Z neither is specified 


PRMOD Names 


UDFAPIZ 

IJDUZPIZ 

IJDFAPZZ 

IJDUZPZZ 

IJDFYPIZ 

IJDVAPIZ 

UDFYPZZ 

IJDVAPZZ 

IJDFZPIZ 

IJDVYPIZ 

IJDFZPZZ 

IJDVYPZZ 

IJDUAPIZ 

IJDVZPIZ 

IJDUAPZZ 

IJDVZPZZ 

UDUYPIZ 


IJDUYPZZ 



IJDFUUZZ 

IJDVUUZZ 

IJDUUUZZ 

UDFUUIZ 

IJDVUUIZ 

IJDUUUIZ 

IJDFUVZZ 

IJDVUVZZ 

IJDUUVZZ 

IJDFUVIZ 

IJDVUVIZ 

IJDUUVIZ 

IJDFUWZZ 

IJDVUWZZ 

IJDUUWZZ 

UDFUWIZ 

IJDVUWIZ 

IJDUUWIZ 
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IJDFUXZZ 

IJDVUXZZ 

IJDUUXZZ 

UDFUXIZ 

IJDVUXIZ 

IJDUUXIZ 


UDFAOIZ 

IJDVAOIZ 

I JDUAOIZ 

IJDFARIZ 

IJDVARIZ 

IJDUARIZ 

UDFASIZ 

IJDVASIZ 

IJDUASIZ 

IJDFATIZ 

IJDVATIZ 

IJDUATIZ 


IJDFAOZZ 

IJDVAOZZ 

IJDUAOZZ 

IJDFARZZ 

IJDVARZZ 

IJDUARZZ 

IJDFASZZ 

IJDVASZZ 

IJDUASZZ 

UDFATZZ 

IJDVATZZ 

IJDUATZZ 

IJDFZOIZ 

IJDVZOIZ 

IJDUZOIZ 

XJDFZRIZ 

IJDVZRIZ 

I JDUZRIZ 

IJDFZSIZ 

IJDVZSIZ 

IJDUZSIZ 

UDFZTIZ 

IJDVZTIZ 

IJDUZTIZ 

IJDFZOZZ 

IJDVZOZZ 

IJDUZOZZ 

UDFZRZZ 

IJDVZRZZ 

IJDUZRZZ 

IJDFZSZZ 

IJDVZSZZ 

IJDUZSZZ 

UDFZTZZ 

IJDVZTZZ 

I JDUZTZZ 


UDFAIIZ 

IJDUAIIZ 

IJDVAIIZ 

IJDFAFIZ 

IJDUAFIZ 

IJDVAFIZ 

UDFACIZ 

IJDUACIZ 

I JDVACIZ 

IJDFADIZ 

IJDUADIZ 

IJDVADIZ 


IJDFZIIZ 

IJDUZIIZ 

IJDVZIIZ 

UDFZFIZ 

IJDUZFIZ 

I JDVZFIZ 

IJDFZCIZ 

IJDUZCIZ 

IJDVZCIZ 

UDFZDIZ 

IJDUZDIZ 

IJDVZDIZ 


UDFYIIZ 

IJDUYIIZ 

I JDVYIIZ 

IJDFYFIZ 

IJDUYFIZ 

IJDVYFIZ 

UDFYCIZ 

IJDUYCIZ 

I JDVYCIZ 

IJDFYDIZ 

IJDUYDIZ 

IJDVYDIZ 


IJDFVUZZ 

IJDWUZZ 

IJDUVUZZ 

UDFVUIZ 

IJDWUIZ 

I JDUVUIZ 

IJDFWZZ 

IJDVWZZ 

IJDUWZZ 

UDFWIZ 

IJDVVVIZ 

IJDUWIZ 

IJDFVWZZ 

IJDWWZZ 

IJDUVWZZ 

UDFVWIZ 

IJDVVWIZ 

IJDUVWIZ 

IJDFVXZZ 

IJDVVXZZ 

IJDUVXZZ 

UDFVXIZ 

IJDVVXIZ 

IJDUVXIZ 
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SDMOD 


SDMODxx name - iJGabcde 

a * C RBCFORM*FIXUNB or FIXBLK and HOLD* YES 

= F RECF0RM=FIXUNB or FIXBLK and HOLD is not specified 

* P R EC FORM=S PNUNB or SPNBLK and HOLD* YES 

= Q RE)CFORM=S PNUNB or SPNBLK and HOLD is not specified 
= R RECFORM=UNDEF and HOLD* YES 

* S RECFORM=VARUNB or VARBLK and HOLD* YES 

= u RECFORM*UNDEF and HOLD is not specified 
« v R ECFORM=VARUNB or VARBLK and HOLD is not specified 

b = I SDMODxI 

* O SDMODxO 
= U SDMOD XU 

c = C ERROPT= YES and ERREXT*YES 
= E ERROPT*YES 
= Z neither is specified 

d = M TRUNCS=YES and FEOVD*YES 
= T TRUNCS*YES 
= W FEOVD=YES 
= Z neither is specified 

e = B C ONTROL *Y ES and RDONLY*YES 
= C C CNTROL*YES 

* Y RDONLY=YES 

= Z neither is specified 


SDMOD Names 


IJGFIEWZ 

UGFOEWZ 

IJGFUEWZ 

UGQIEWZ 

IJGQOEWZ 


IJGQUEWZ 

UGUIEWZ 

IJGUOEWZ 

IJGUUEWZ 

IJGVIEWZ 


IJGVOEWZ 

UGVUEWZ 
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NAME LIST FOR WORKFILE TYPE MODULES (TYPEFLE=WORK) 

SDMODxx name = IJGabcde 

a = T SDMODW specifies HOLD=YES 

= W SDMODW does not specify HOLD= YES 

b = C ERROPT=YES and ERREXT=YES 
= E ERROPT=YES 
= Z neither is specified 

C = N NOTEPNT=YES 

= R NOTEPNT=PCINTRW 
= Z NOTEPNT is not specified 

d = C CONTROL =YES 

= Z CONTROL is not specified 

e = T RDONLY= YES and UPDATE=YES 
= U UPDATE=YES 
= Y RDONLY=YES 
= Z neither is specified 


System I/O Modules 

(See "Required IOCS Modules” before deleting modules with the IJG 
prefix.) 

IJGWEZZU 

UGWEZZZ 

IJGWZNZZ 

IJGWZRZZ 


Required IOCS Modules 


The following preassembled IOCS modules are required when cataloging IBM 
components to the core image library. These modules are also required 
when installing program products. 


Module Names 


UFWEZZZ 

IJFWZNZZ 

UFWZZZZ 

UGFIETZ 

IJGWEZZU 


IJGWEZZZ 

UGWZNZZ 

IJGWZRZZ 

UJCPA1N 

IJJCPDV 


IJJCPDV1 

UJCPDV2 

IJJCPDO 

UJCPDON 

IJJCPD1 


IJJCPD1N 

IJJCPD2 

IJJCPD3 

IJJCPV 

IJJCPV1 


IJJCPV 2 

IJJCPO 

IJJCPON 

IJJCP1 

IJJCP1N 


IJJCP2 

IJJCP3 
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INSTALLATION PROCEDURE 


To add the DOS/VS compiler and the Library to your system, follow the 
procedure described in this section. The method used to install the 
compiler and the library depends on the medium on which each was 
received. For the procedures pertinent to your installation, refer to 
the appropriately named section below,. 


• Installation from Tape 


• Separate Library Installation from Tape 


• Installation from Disk 


• Separate Library Installation from Disk 


The system to which the compiler and library are to be added must 
include the required IOCS modules (listed in "IOCS Modules”) as well as 
the DSTRB and Maintenance utility programs. System generation factors 
that can affect compiler execution are discussed below. If the compiler 
and library are to be used in a foreground partition, special 
preparation is necessary. See "Foreground Installation Considerations" 
for the steps required. 


Note : The CMS/DOS environment simulates only the background partition. 
Therefore, the compiler must be generated for use in the background 
partition with ACTION REL if it is going to be used in CMS/DOS. 


Preparing the DOS/VS System Libraries 


Before actually installing the compiler and/or library subroutines, you 
may have to prepare the DOS/VS system libraries. During installation, 
the compiler and subroutines replace any IBM American National standard 
COBOL Compiler and Subroutine Library already existing in the library to 
which they are added. Therefore, to preserve an existing version of the 
IBM American National Standard COBOL Compiler and subroutine Library, 
you must move them to a private library before adding the DOS/VS 
compiler and subroutines to the system libraries or add the DOS/VS 
compiler and subroutines to a private library during installation. 


To replace an existing version, use the "Storage Requirements" 
section to determine if sufficient space is available for the DOS/VS 
compiler and subroutines. If there is enough space in the library, no 
preparation for installation is necessary. If not, the existing version 
should be deleted and the libraries condensed. The following examples 
show how to delete an earlier compiler and subroutine library and then 
condense the system libraries. These jobs must be run in the 
background. 
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// JOB 
// EXEC 
DELETC 
DEL ETC 
DELETC 
DELETC 
DELETC 
DELETC 
DELETE 
DELETR 

/* 

/& 

// JOB 
// EXEC 
CONDS 
CONDS 

/* 

/& 


DELETE 

MAINT 

FCOB.ALL 

ILBD.ALL 

$$BCOBER 

$$BC0BR1 

$$ BFCMUL 

ssbcobem 

I LA. ALL 

ILB. ALL 


CONDENSE 

MAINT 

CL 

RL 


The output from this job will indicate the number of available blocks 
remaining in each library. 


System Generation considerations 


The compiler and library can be used on a system only if the following 
parameters are specified for the SUPVR and FOPT macro instructions 
during system generation: 


SUPVR: SYSTEM=DISK 

ASCII=YES (required only when the ASCII features of the 
compiler are used) 

MPS=BJF (required only when the compiler is to be executed 

in the foreground) 


FOPT: 


AB=YES 
PCI L= YES 
GET VI S= YES 


(for use of STATE, FLOW, STXIT, SYMDMP, and COUNT 
features) 

(required only when the compiler is to be executed 
in the foreground) 

(required for use of 3886; forced by VSAM=YES, 
and required if COUNT option is specified) 


VSAM: VSAM=YES (required for use of the VSAM feature) 


If PCIL=YES is specified with MPS-NO or MPS-YES, private core image 
library support is provided for background only. When MPS=BJF is 
specified, a private core image library can be assigned either to the 
background or to a foreground partition; it cannot be assigned to more 
than one partition. 

FOPT= SYSFIL must also have been specified during system generation if 
system files on disk are to be used. 

System options selected at system generation enable you to tailor the 
DOS/VS compiler to fit your installation's needs. The system options 
that can be used to control compiler processing specify whether: 

• control statements are to be written on SYSLST. 


• A dump is to be written on SYSLST if an abnormal termination occurs. 
(You may not want this if the SYMDMP, STATE, or FLOW features are 
used.) 
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• The object module produced by the compiler is to be link edited, 

• An object deck is to be punched. 

• The COBOL source statements are to be written on SYSLST. 

• A Procedure Division map. Data Division map, or cross-reference 
listing is to be written on SYSLST. 


• Diagnostic messages for the source program are to be written on 
SYSLST, 


Instructions for specifying these options are given in the 
publications DOS/VS System Generation and DOS/VS COBOL Compiler and 
Library Programmer * s Guide . 


CHANGING THE INSTALLATION DEFAULTS 


To change the compiler default values to suit your installation, a new 
member, C. CBLOPTNS, must be added to the source statement library. This 
module must contain CBL and LST option cards defining the desired 
defaults. These may be overridden at compilation time by supplying a 
CBL and/or LST statement in the compiler input stream. CMS/DOS does not 
support the 1ST statement. 


CBL statement — COBOL Option Control Statement 


Although most options for compilation are specified either at system 
generation time or in the OPTION control statement, the COBOL compiler 
provides an additional statement, the CBL statement, for the 
specification of compile -time options unique to COBOL. 


The CBL statement must be placed between the EXEC FCOBOL statement 
and the first statement in the COBOL program. The CBL statement cannot 
be continued. However, if specification of options will continue past 
| column 71, more than one CBL card image may be used. 


The options shown in the following format may appear in any order. 
No embedded blanks may appear in the operand field. Underscoring 
indicates the default value. No comments should appear in the operand 
field. 
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r — — ■ 

1 

CBL [ BUF=nnnn ] 

f . SEQ 1 r , FLAGW 1 
, NOSEQ J [,FLAGeJ 

r, SUPMAP ] 

I .NOSUPMAP 1 

[ , SPACEn] 

r,LVL=C ] 

1 . NOLVL 1 

f, CLIST ] 

1 .NOCLIST 1 

1 

' , STXIT ir, QUOTE] 

. NOSTXIT 1 1 .APOST I 

T.TRUNC ] 

[_, NOTRUNCj 

f,ZWB ] 
|_,NOZWBj 

' , SYNTAX - 
,CSYNTAX 
,N0 SYNTAX 


r, SXREF ] 

f", OPTIMIZE ] 


[, STATE 

I.NOSXREF r ,PMAP=h1 

.NOOPTIMIZE 

,OPT 

[ ,FLOW[ »nn] ] 

.NOSTATE 


.NOOPT 



£ , SYM DMP[ -f il ename ] ] 

f , CATALR ] 

r » lib ] 

[,VERB ] 


, NO CAT ALR | 

1 .NOLIB 1 

.NOVERB 

r, VERB SUM ] [*, VERBREF ] 

! . NOVERB SUM I I .NOVERBREF 1 

, COUNT ] 

.NO COUNT 1 




I ; l 


CBL 

must begin in column 2 (column 1 must be blank) and be followed by 
at least one blank. 


BUF=nnnnn 

the BUF option specifies the amount of storage to be assigned to 
each compiler work file buffer (i.e., the block sizes of the work 
files)- nnnnn is a decimal number from 512 to 32,767. If this 
option is not specified, 512 is assumed. Performance is affected 
by the use of this option, and the amount specified should be 
tailored for best performance for the work file devices used. 
Maximum performance is usually achieved by specifying the buffers 
as large as possible. 


SEQ 

NOSEQ 

indicates whether or not the compiler is to check the sequence of 
source statements. If SEQ is specified and a statement is not in 
sequence, it is flagged. If lister is invoked also, the original 
card sequence numbers may be resequenced, thus not providing the 
sequence check desired. 


FLAGW 

FLAGE 

determines which diagnostic messages the compiler will list. FLAGW 
indicates that all diagnostic messages will be listed (severity 
levels W, C, E, and D) . FLAGE indicates that only those diagnostic 
messages with severity levels C, E, and D will be listed. This has 
no effect on FIPS messages. 


SUPMAP 

NOSUPMAP 

causes the CLIST and LISTX options to be suppressed if an E- level 
diagnostic message is produced by the compiler. SUPMAP also 
suppresses the DECK option, and no object module is produced. 


SPACEn 

indicates the line of spacing to be used on the output listing. 


5746-CB1, 5746-LM4: Program Product Installation 29 
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can be specified as 1 (single spacing), 2 (double spacing), or 3 
(triple spacing). If the SPACEn option is omitted, single spacing 
is provided. 


LVL^c 

LVL=NO 

indicates whether the compiler should identify COBOL clauses and 
statements in a DOS/VS COBOL source program that do not conform to 
the Federal Information Processing Standard. FIPS recognizes four 
language levels: low, low- intermediate, high-intermediate and 
full. The FIPS Flagger provides four levels of flagging frcm low 
(A) to high (D) to conform to the four levels of the FIPS. 


CLIST 

NOCLIST 

indicates that a condensed listing is to be produced. The 
condensed listing contains only the address of the first generated 
instruction for each verb in the Procedure Division. In addition, 
global tables, literal pools, register assignments, and procedure 
block assignments are provided,. The CLIST option overrides the 
LISTX or NOLISTX options. The LISTX or NOLISTX options are either 
established at system generation time or specified in the OPTION 
control statement. 


STXIT 

NOSTXIT 

enables a USE AFTER STANDARD ERROR declarative to receive control 
when an input/output error occurs on a unit record device. The use 
of STXIT precludes the use of SYMDMP, STATE, and FLOW in the 
compiled program and in any other program link-edited with the 
compiled program, and vice versa. 


QUOTE 

APOST 

QUOTE indicates to the compiler that the double quotation marks (") 
should be accepted as the character to delineate literals; APOST 
indicates that the apostrophe (*) should be accepted instead. The 
compiler will generate the specified character for the figurative 
constant QUOTE (S) . 


TRUNC 

NOTRUNC 

applies only to COMPUTATIONAL receiving fields in MOVE statements 
and arithmetic expressions. If TRUNC is specified, extra code is 
generated to truncate the final intermediate result of the 
arithmetic expression, or the sending field in the MOVE statement# 
to the number of digits specified in the PICTURE clause of the 
COMPUTATIONAL receiving field. If NOTRUNC is specified, the 
compiler assumes that the data being manipulated conforms to 
PICTURE and USAGE specifications. The compiler then generates code 
to manipulate the data based on the size of the field in core 
(halfword, etc.). TRUNC conforms to the American National 
Standard, while NOTRUNC leads to more efficient processing. This 
will occasionally cause dissimilar results for various sending 
fields because of the different code generated to perform the 
operation. 
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ZWB 

NOZWB 

determines if the compiler is to generate code to strip the sign 
when comparing a signed external decimal field to an alphanumeric 
field. If ZWB is in effect, the signed external decimal field is 
moved to an intermediate field and has its sign stripped before 
being compared to the alphanumeric field. ZWB conforms to the 
American National Standard, while NOZWB allows the user to test 
input numeric fields for SPACES to prevent, abnormal termination. 


SYNTAX 

CSYNTAX 

NOSYNTAX 

indicates whether the source text is to be scanned for syntax 
errors only and appropriate error messages are to be generated. 

For conditional syntax checking (CSYNTAX) , a full compilation is 
produced so long as no messages exceed the c level. If one or more 
E-level or higher severity messages are produced, the compiler 
generates the messages but does not generate object text. 

Notes ; 

1. When the SYNTAX option is in effect, all of the following 
compile-time options are suppressed: 

OPTION control statement; LINK, DECK, XREF, LISTX 

CBL statement: SXREF, CLIST, COUNT, VERBSUM, VERBREF 

2. When conditional syntax-checking is requested, the preceding 
options are suppressed only if one or more E- or D-level 
messages are generated. 

3. Unconditional syntax checking is assumed if all of the 
following compile-time options are specified: 

OPTION control Statement: NOLINK, NO XREF , NODECK, LISTX 

CBL statement: SUPMAP (and CLIST, SXREF, VERBSUM, and VERBREF 
are not specified) 

4. Some compiler diagnostics do not appear when SYNTAX or CSYNTAX 
is in effect. 


SXREF 

NOSXREF 

causes the compiler to write an alphabetically-ordered 
cross-reference list on SYSLST. You may want to use the lister 
feature cross-reference information instead of this option for 
large COBOL programs, to decrease run time and get a better type of 
cross-reference.. 

PMAP=h 

enables the programmer to request a relocation factor "h" specified 
as one to eight hexadecimal digits. If the PMAP option is 
specified, the relocation factor is included in the addresses of 
the object code listing. If the PMAP option is not specified, the 
relocation factor is assumed to be zero. When PMAP is specified in 
a segmented program, the listing for segments of priority higher 
than the segment limit (49, if the SEGMENT-LIMIT clause is not 
specified) will not be relocated. The PMAP option is effective 
only if LISTX is specified. 
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OPTIMIZE 

NOOPTIMIZE 

OPT 

NOOPT 

OPTIMIZE (OPT) causes optimized object code to be generated by the 
compiler,. This more efficient code considerably reduces the amount 
of space required by the object program. 

This option cannot be used if either the symbolic debug option 
(SYMDMP) , the statement number option (STATE) , or the flow trace 
option (FLOW[=nn]) is requested. 

Note : If NODECK and NOLINK are requested on the OPTION control 

statement and OPT is specified on the CBL card, OPT is ignored. 

FLOW( =nn ] 

provides the programmer with a formatted trace (i. e. , a list 
containing the program identification and statement numbers) 
corresponding to a variable number of procedures executed prior to 
an abnormal termination. The value "nn" may be from 0 to 99. If 
"nn" is not specified, a value of 99 is assumed. 

FLOW and STXIT, and FLOW and OPT are mutually exclusive, i.e., only 
one may be in effect during a compilation. In addition, FLOW and 
STXIT are mutually exclusive at execution time. Additional 
information on the flow trace option can be found in "Symbolic 
Debug Considerations." 


STATE 

NOSTATE 

STATE provides the programmer with information about the statement 
being executed at the time of an abnormal termination of a job. It 
identifies the program containing the statement and provides the 
number of the statement and of the verb being executed. STATE and 
STXIT, STATE and SYMDMP, and STATE and OPT are mutually exclusive 
options, i. e, , no more than one may be in effect during a given 
compilation. (However, the facilities provided by STATE 
automatically exist with SYMDMP.) In addition, STATE and STXIT are 
mutually exclusive at executiom time. Additional information on 
the statement number option can be found in the chapter "Symbolic 
Debug Considerations." 

SYMDMPf = f i le name ] 

indicates to the compiler that execution- time dumps may be 
requested for the program currently being compiled. If dumps are 
desired, the programmer must provide the required control cards at 
execution time. 

Use of the symbolic debug option necessitates the presence of an 
additional work file, SYS005, at compile time. The "filename" 
parameter enables the programmer to specify a name for the SYS005 
file that he can retain. If no filename is specified, IJSYS05 will 
be used. When several COBOL programs are link edited together, the 
"filename" parameter enables each to have a unique SYMDMP name. 

For a tape file, only unlabeled tapes may be used, and the filename 
in the SYMDMP=f ilename parameter is ignored. 

SYMDMP and STXIT, SYMDMP and STATE, and SYMDMP and OPT are mutually 
exclusive, i.e., only one may be in effect during a compilation. 
(However, the facilities provided by STATE automatically exist with 
SYMDMP.) In addition, SYMDMP and STIXIT are mutually exclusive at 
execution time. Additional information on the symbolic debug 
option and the required execution-time control cards is in 
"Symbolic Debug Considerations." 
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Note : If NODECK and NOLINK are requested on the OPTION control 

statement and SYMDMP is specified on the CBL card, SYMDMP is 
ignored. 


CATALR 

NOCATALR 

causes the compiler to generate CATALR card images on the SYSPCH 
file if OPTION DECK is in effect during compilation. This will 
allow cataloging of the compiler-produced object modules into the 
relocatable library. The module names in the CATALR cards follow 
the same rules as the phase names in the compiler- produced PHASE 
cards according to the segmentation and sort phase naming 
conventions. (See "Sort Feature Considerations.") 


LIB 

NOLIB 

indicates that BASIS and/or COPY statements are in the source 
program. If either COPY or BASIS is present, LIB must be in 
effect. If COPY and/or BASIS statements are not present, use of 
the NOLIB option yields more efficient compiler processing. 


VERB 

NOVERB 

indicates whether procedure-names and verb- names are to be listed 
with the associated code on the object program listing. VERB has 
meaning only if the LISTX, VERBSUM, VERBREF, COUNT, or CLIST 
compiler option is specified or if READY TRACE is used in the 
source program. NOVERB yields more efficient compilation. 


VERBSUM 
NO VERB SUM 

provides a brief summary of verbs used in the program and a count 
of how often each verb is used. This option provides the user with 
a quick search for specific types of statements. VERBSUM implies 
VERB. 


VERBREF 
NO VERBREF 

provides a cross-reference of all verbs used in the program. This 
option provides the programmer with a quick index to any verb used 
in the program. VERBREF implies VERB and VERBSUM. 


COUNT 

NOCOUNT 

generates code to produce verb execution summaries at the end of 
problem program execution. Each verb is identified by 
procedure-name and by statement number, and the number of times it 
was used is indicated. In addition, the percentage of verb 
execution for each verb with respect to the execution of all verbs 
is given. A summary of all verbs used in a program and the number 
of times they are executed is provided. COUNT implies VERB. 

COUNT requires GETVIS=YES, which means that the SIZE parameter must 
be specified on the EXEC card. 

Note: If COUNT and STXIT are desired, then either STXIT must be 

requested in the program unit requesting COUNT, or the program unit 
requesting COUNT must be entered before the program unit requesting 
STXIT. 
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MUTUALLY EXCLUSIVE OPTIONS : In some of the preceding descriptions of 
the CBL card options, restrictions have been placed on the use of one 
option in conjunction with others. If these restrictions are violated, 
the compiler ignores all but the last of the conflicting options 
specified. Therefore, if after a CBL card is coded you decide to use a 
new option that is mutually exclusive with an option on the original CBL 
card, a new CBL card can be added rather than changing the original 
card. 

CHANGING THE INSTALLATION DEFAULTS ; In order to change the compiler 
default options to suit your installation, a new member, C.CBLOPTNS, 
must be added to the source statement library. This module must contain 
CBL option cards specifying the desired defaults. Resultant defaults 
may be overridden at compilation time by supplying a CBL card in the 
compiler input stream. 


I LST Statement — Compiler Option Statement 


The LST statement is used to invoke the lister, a portion of the 
| compiler that processes programs written in DOS/VS COBOL, to produce a 
reformatted source code listing containing embedded cross-reference 
information and uniform indenting conventions. 

I The LST option statement can be placed anywhere between the EXEC 
statement and the first statement of the COBOL program. It may be 
I placed between any other compiler option statements. The options shown 
din the following format may appear in any order. Underscoring indicates 
the default case. 







piiB ■ will 


PROC — 1 COl >~| 

2 col J 


LST 

must begin in column 2 (column 1 must be blank) and be followed by 
at least one blank. 


DECK 

NODECK 

indicates whether an updated source deck is to be produced as a 
result of the lister reformatting and/or the update BASIS library. 


OOPYPCH 

NOCOPYFCH 

will punch updated and reformatted copy libraries as a permanent 
part of the source when DECK is specified. When no updated source 
deck is requested, an updated and reformatted COPY library will be 
punched out. 


LSTONLY 

LSTCOMP 

When LSTONLY is specified, the program will not be compiled, but a 
reformatted listing will be produced along with a deck if DECK has 
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been specified. LSTCOMP will provide a source listing and will 
compile the program as part of the job step. 


PROC= 1 CO 1 
2col 

will list the Procedure Division in either single- or double- column 
format. At least 132 print positions are required on the printer 
for the double-column format. 

I SIGNIFICANT CHARACTERS FOR CBL/LST OPTIONS ; The DOS/VS COBOL compiler 
selects the valid options for processing by looking for three 
significant characters of each key option word. When the keyword is 
identified, it is checked for the presence or absence of the prefix NO, 
as appropriate. The programmer can make the most efficient use of the 
| CBL or LST statement by using the significant characters instead of the 
entire option. Figure 5 lists the significant characters for each 
option. 


r — i 

Option j 

Significant Characters 

SEQ 

SEQ 

FLAGE (W) 

LAG,LAGW 

BUF 

BUF 

SPACE 

ACE 

PMAP 

PMA 

SUPMAP 

SUP 

CLIST 

CLI 

TRUNC 

TRU 

APOST 

APO 

QUOTE 

QUO 

SXREF 

SXR 

STATE 

STA 

FLOW 

FLO 

LIB 

LIB 

SYMDMP 

SYM 

OPTIMIZE 

OPT 

SYNTAX 

SYN 

C SYNTAX 

CSY 

VERB 

VER 

ZWB 

ZWB 

LVL 

LVL 

STXIT 

STX 

VERBS UM 

VERBSUM 

VERBREF 

VERBREF 

COUNT 

COU 

DECK 

DEC 

COPYPCH 

COP 

LSTCOMP 

STC 1 

LSTONLY 

STO 

PROC 

i .... - .. i 

PRO | 

u . . ...... .... .. -■ .. . 


Figure 5. Significant Characters for Each CBL/LST Option 


Note : SYM in the CBL statement should not be confused with SYM in the 

OPTION statement. 


FOREGROUND INSTALLATION CONSIDERATIONS 


In order for the compiler to be link edited in a foreground 
partition, you may have to create the required private core image 
library and any additional private libraries required for the partition 
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in which the compiler is to execute. When the private libraries have 
been created, use the appropriate procedure — either installation from 
disk or installation from tape — to install the compiler and library, 
specifying the names of the private libraries where requested. The job 
must be run in the background. If your system has the optional 
relocating loader, however, you need only a copy of the program in the 
system core image library. 


The following job creates partition standard labels for the 
background and defines the extents for four system work files to be used 
in the background. This job must be run in the background. 


// JOB 
// OPTION 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
// DLBL 
// EXTENT 
/* 

/& 


LABELS FOR BG 
PAR STD 

I JS YSRS , ' DOS SYSRES FILE* , 99/365, SD 
SYSRES, 111111 ,1,1,001 ,489 
I JSYSCL, * DOS SYSCLE LIB* , 99/365, SD 
SYSCLB, 11 1 1ll ,1, 1 ,490,700 
I JSYSRL, • DOS SYSRLE LIB* , 99/3 65, SD 
SYSRLB, 111111 ,1,1 ,1190,510 
I JSYSSL, * DOS SYSSLE LIB' , 99/3 65 , SD 
SYSSLB, 111111 ,1,1,1700,120 
I JS YSRC , ' DOS RECORD FILE' , 99/365, SD 
SYSREC, 111111 ,1,1,1970,10 
ESTVFLE , ' TAPE ERROR STAT* , 99/365, SD 
SYS004, 111111,1,1 ,1980,10 
I JSYS01 , ' SYS001 WORK FILE' , 93/3 65 , SD 
SYS00 1,22 2222, 8,1 ,0010,250,4 
I JSYS02 , ' SYS0 02 WORK FILE' , 99/3 65 , SD 
SYS002, 222222 ,8, 1 ,0015,250,9 
I JSYS03 , ' SYS0 03 WORK FILE* , 99/365, SD 
SYS003, 333333, 8,1 ,0010,250,4 
I JSYS04 , ' SYS0 04 WORK FILE* , 99/3 65 , SD 
SYS00 4, 333333, 8,1 ,0015,250,9 
IJSYSLN, ' SYSLNK WORK FILE' , 99/3 65, SD 
SYSLNK, 111 111 , 1, 1 ,1820, 150 


As a result of the above job, partition standard labels for the 
background are created, and the extents for the work files (SYS001, 
SYS002, SYS003, SYS004) highlighted in Figure 6 are defined. The 
libraries on volser= 1 1 11 1 1 were created at system generation time. 
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Figure 6. Allocation for Work Files to be Used in Background 

To allow for compilation in the foreground, a private core image 
library assigned in the foreground must be created. In this example, a 
private relocatable library and a private source statement library are 
also created, though the system libraries can be used if they are 
assigned in the foreground. 

To create the three private libraries, the following three jobs are 
run. The first job creates the private core image library; the second 
creates the private relocatable library; the third creates the private 
source statement library. These jobs must be run in the background. 


// JOB 
// ASSGN 
// DLBL 
// EXTENT 
// EXEC 
NEWVOL 

/* 

/e 


CREATE PCIL 
SYS003,X*CUU* 

I JSYSPC ,* PRIVATE CORE IMAGE LIB* , 99/365 , SD 
SYSOO 3, 333333,1, 1, 1010, 800 
CORGZ 
CL=80 (20) 


// JOB 
// ASSGN 
// DLBL 
// EXTENT 
// EXEC 
NEWVOL 

/* 

/& 


CREATE PRL 
SYSRLB, X* CUU* 

IJSYSRL,' PRIVATE RELOCATABLE LIB* , 99/365, SD 
SYSRLB, 222222,1,1,1010,750 
CORGZ 
RL=75 (2 5) 


// JOB 
// ASSGN 
// DLBL 
// EXTENT 
// EXEC 
NEWVOL 

/* 

/& 


CREATE PRIVATE SYSSLB 
SYSSLB, X* CUU* 

IJSYSSL,' PRIVATE SOURCE LIB* , 99/3 65 ,SD 
SYSSLB, 22 2222 ,1,1, 1760, 230 
CORGZ 
SL=23 (6) 


where: cuu is the unit address of the drive on which the disk is 

mounted. 
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Figure 7. Allocation after Creation of Private Libraries 

Next, the following job is run to create partition standard labels 
for foreground partition 2 (F2) and to define the extents of four system 
work files to be used in the foreground. This job must be run in the 
foreground. 

// JOB LABELS FOP F2 

// OPTION PAR STD 

// DLBL I JSYSRS , * DOS SYSRES FILE* ,99/365, SD 

// EXTENT SYSRES, 11 1111 ,1, 1 ,001 ,489 

// DLBL IJSYSCL,' PRIVATE CORE IMAGE LIB* , 99/365, SD 
// EXTENT SYSCLB, 333333, 1,1, 101 0,800 
// DLBL I JSYSLN, ' SYSLNK WORK FILE' , 99/365, SD 

// EXTENT SYSLNK, 333333 ,1, 1 ,1810, 160 

// DLBL IJSYSRL,' PRIVATE RELOCATABLE LIB* , 99/365, SD 

// EXTENT SYSRLB, 222222, 1,1, 101 0,750 

// DLBL IJSYSSL,' PRIVATE SOURCE LIB' , 99/3 65, SD 

// EXTENT SYSSLB, 222222, 1,1, 1760, 230 

// DLBL I JSYS01 , ' SYS001 WORK FILE' , 99/3 65 , SD 

// EXTENT SYS001, 333333, 8, 1,0510, 250, 4 

// DLBL I JSYS02 , ' SYS002 WORK FILE' , 99/365 , SD 

// EXTENT SYS002, 333333 ,8,1,0515,250,9 

// DLBL IJJSYS03, 'SYS003 WORK FILE' ,99/365, SD 

// EXTENT SYS003, 22 22 22, 8, 1,05 10, 250, 4 

// DLBL I JSYS04 , • JdYS004 WORK FILE' ,99/365, SD 

// EXTENT SYS004, 222222, 8, 1,0515, 250, 9 


The system, as shown in Figure 8, is now ready for installation of 
the compiler. Creating partition standard labels before installation 
enables you to refer to the private libraries during installation 
without including DLBL and EXTENT statements. 
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Figure 8 . Allocation for Work Files to be Used in Foreground 


Notes ; 

1 . A private core image library can be assigned to only one partition 
at a time. If more than one private core image library is to be 
used in any one partition, it is advisable not to include the 
labels in the partition standard labels. A private core image 
library must always be permanently assigned. 

2. Although a private cote image library can be assigned in only one 
partition at any particular time, a relocatable library can be 
assigned to more than one partition simultaneously. 

3. Cataloging (link editing) into a private core-image library is 
valid in any partition at any time. Cataloging into a private 
relocatable library, however, is valid only in the background, and 
only if the library is not assigned to any other partition at that 
time. 

Because of this restriction in ttie use of the relocatable 
library, the first compiler installation job and the first library 
installation job must be run in the background with a nonshared 
relocatable library. Subsequent compiler installation jobs and 
library installation jobs may be run in any partition by assigning 
the relocatable library used in the first job. 

4. The partition priorities are in the following ascending order; 
background, f oreground- 1 , foreground-2, foreground -3 , and 
foreground-4. These priorities may be changed at installation time 
through the PRTY parameter of the FOPT macro. 

5. If your system contains the relocating loader, it is not necessary 
to catalog separate copies of the compiler and its object-time 
subroutines for multipartition compile- link-execute capability. A 
single copy of the compiler and library residing in the system core 
image and relocatable libraries will allow simultaneous usage from 
any partition. The previously discussed rules of library usage 
still apply, however, and must be considered regarding the use of 
private libraries during the installation procedure. 
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6- During installation, it is important to remember that SYSIPT and 
SYSRDR or SYSIN files cannot be assigned to the same device in two 
or more partitions at the same time unless they reside on disk. 

Each partition must have its own input device. Separate output 
devices must also be assigned for each partition unless they are on 
disk. For example, if the following assignments are made in the 
background: 

ASSGN SYSIPT, X 1 00C* ) 

> or ASSGN SYSIN, X 1 00C 1 (card reader) 

ASSGN SYSRDR, X* 00 C» ) 

then the assignments for a foreground partition must be different, 
such as those given below to specify tape input. 

ASSGN SYSIPT, X* 182 * ) 

> or ASSGN SYSIN, XM82» (tape unit) 

A SSGN SYSRDR, X » 1 8 2 ' ) 


INSTALLATION FROM TAPE 


The compiler and library distribution tape contains 80-byte, 
fixed- length records, blocked 43 records per block (blocksize is 3440 
bytes) . The library is also distributed separately on tape, (see 
"Separate Library Installation from Tape") . The installation tape 
contains four unlabeled files separated by tape marks. 

The first file contains a job which catalogs the compiler and library 
object modules into the relocatable library. Either the system or a 
private relocatable library may be used. This job must be run in the 
background partition, and the relocatable library must not be shared 
during the job. 

The second file contains three jobs consisting of the job control 
statements needed to link edit and catalog the compiler phases and the 
library transients and dynamically-loaded subroutines into the core 
image library. Either the system or a private core image library may be 
used. These jobs may be run in any partition. 

The third file is the sample program provided by IBM. Use this 
program to verify that the compiler and library have been successfully 
installed. See "Using the Sample Program" in this section for 
instructions. 

The fourth file is for 3886 users. It contains a job which catalogs 
Data and Procedure Division COPY members into the source statement 
library. See "3886 Considerations" in this section for instructions. 


Installing the Compiler and Library Modules into the Relocatable Library 


Before you can install the compiler and library, you must deblock the 
files on the installation tape. The following example shows how to use 
the DSTRB utility to deblock the first file, which contains a job to 
install the compiler and library modules into the relocatable library. 

Position the tape at the beginning of the first file and execute the 
following job. 
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// JOB DEBLOCK 
// ASSGN SYS004,X'CUU* 
// ASSGN SYSOOSfX'cuu’ 
// TLBL UOUT, 'file-id* 
// EXEC DSTRB 
// UDS DBL 
// END 
/& 


where: cuu is the unit address of the tape drive on which the 

tape is mounted. SYS004 is the installation tape 
supplied by IBM; SYS005 is the tape to be used for 
deblocked output. 


file-id is the unique name for the file on the output tape. 


Note : The output tape does not rewind. It must be reset to load 

point before the compiler and library can be installed. Do not 
rewind the installation tape. 


After the first file has been deblocked and the DOS/VS system 
libraries have been prepared, use the deblocked tape file to install the 
compiler and library. Execute the job in the background partition. 
Assign SYSRDR and SYSIPT to the tape unit on which the deblocked tape is 
mounted as shown below. 


ASSGN SYSIPT, X' CUU* ) 

V or ASSGN SYSIN,X'cuu* 
ASSGN SYSRDR, X' CUU* j 


where: cuu is the unit address of the tape drive on which the 

deblocked tape is mounted. 


After the operator has entered the command, the system executes the job 
on the first file. Following the JOB control statement there is a PAUSE 
control statement. The PAUSE statement enables you to specify a private 
relocatable library by assigning SYSRLB and SYSCLB at that time. 

The PAUSE control statement causes a message to appear on the 
operator console. To add the compiler and library modules to a private 
relocatable library, respond to this message by entering an ASSGN 
command for SYSRLB to define the private library. To add the compiler 
and library modules to the system relocatable library, simply signal 
END/ENTER in response to the message. This job must be run in the 
background, and the relocatable library must not be shared. 


Cataloging the Compiler and Library into the Core Image Library 


Before you can catalog into the core image library, you must deblock the 
second file on the installation tape. The following example shows how 
to use the TPTP utility to deblock the second file. 
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Position the installation tape at the second file and execute the 
following job: 

// JOB DEBLOCK 

// ASSGN SYS004 ,X*cuu* installation tape 

// ASSGN SYS005,X*cuu* work tape 

// TLBL UOUT, ' f ile- id ' 

// EXEC DSTRB 
// UDS DBL 
// END 
/& 


where: cuu is the unit address of the tape drive on which the 
tape is mounted. SYS004 is the installation tape 
supplied by IBM; SYS005 is the tape to be used for 
deblocked output. 


file- id is the unique name for the file on the output tape. 


Note : The output tape does not rewind. It must be reset to load 
point before cataloging into the core image library can take place. 
Do not rewind the installation tape. 

After the second file on the installation tape has been deblocked and 
the DOS/ VS system libraries have been prepared, use the deblocked file 
to catalog into the core image library. 

Run this job in the partition in which you wish to install the 
compiler and library. Assign SYSRDR and SYSIPT to the unit where the 
deblocked file is ready. Sample commands are: 

ASSGN SYSIPT, X* CUU* ) 

> or ASSGN SYS IN, X* CUU* 

ASSGN SYSRDR, X* CUU* | 


where: cuu is the unit address of the tape drive or card reader 
containing the deblocked file. 

If you plan to use the compiler and library with CMS/DOS, you must 
install it in the background partition. You must also link -edit all the 
compiler relocatable modules using the following linkage editor control 
statement: 

ACTION REL 

After the operator has entered the command, the system executes the 
job. Following the job control statement, there is a PAUSE statement. 

When the PAUSE card message appears on the console, you can add the 
compiler and library to a private core image library. To do this, 
respond to the message by entering an ASSGN command for SYSRLB to define 
the private relocatable library to which the modules have been added. 
Enter a second ASSGN command for SYSCLB to define the private core image 
library to which the compiler and library are to be added. To add the 
compiler and library to the system core image library, simply signal 
END/ENTER in response to the message. If you have added the compiler 
and library to a private relocatable library but want to add them to the 
system core image library, respond to the message by entering an ASSGN 
command for SYSRLB to define the private relocatable library to which 
the compiler and library have been added. 
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Responses to the PAUSE messages in J0B1 and JOB2 are summarized in 
Figure 9. The summary assumes the necessary volumes are mounted on disk 
drives 191 and 192. 
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relocatable library. j 


or j 


Compiler and library) 


added to system j 
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Figure 9- Responses to PAUSE Messages in Cataloging Compiler and 
Library From Tape 

As a result of executing the two jobs on the first and second files, 
respectively, of the installation tape, the compiler and library are 
cataloged into the relocatable library and the core image library that 
you have specified. 


Using the Sample Program 


The sample program provided by IBM helps you verify that the compiler 
has been successfully installed. The sample program, TESTRUN, creates a 
blocked, labeled, standard sequential file, on a tape assigned to 
SYS008, and then reads it back in. This tape is assigned to device 
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V. 


address 483- A source statement listing appears in the publication 
DOS/VS CCBOL Compiler and Library Programmers Guide , 


To use the sample program, deblock and punch the third file onto 
cards as follows* Position the installation tape at the beginning of 
the third file and execute the following job: 


// JOB SAMPLE 

// ASSGN SYS005,X«cuu» defines the system punch unit 

// ASSGN SYS004 ,X*cuu* defines the installation tape drive 

// EXEC DSTRB 
// UDS DBL 
// END 
/& 

Note : Do not rewind the installation tape. 

Place the card deck produced as output from this job into the card 
reader. When you are ready to run the sample program, have the operator 
issue the necessary commands. 

Successful compilation of the sample program will produce the 
following output: 

1. A listing of the job control statements. 

2. A listing of the source program. 

3. A glossary of compiler -generated information about data, as well as 
global tables and literal pools and register assignments. 

4. A listing of the object code. 

5. A cross-reference listing. 

6. Linkage editor diagnostic output and a map of virtual storage. 

7. Execution time output produced by the sample program. 


3886 Considerations 


The two COBOL source statement library members provided by IBM allow the 
3886 user to copy standard Data and Procedure Division statements into a 
COBOL program. An illustration of these source statements appears in 
the publication IBM DOS/VS COBOL Compiler and Library Programmers 
| Guide . Note : The 3886 is not supported in CMS/DOS. 

To install these members in the source statement library, deblock and 
punch the fourth file on the installation tape onto cards as shown 
below. 

// JOB DEBLOCK 
// ASSGN SYS005, X*cuu* 

// ASSGN SYS004 , X'cuu * 

// EXEC DSTRB 
// UDS DBL 
// END 

Note : Do not rewind the installation tape. 


defines the system punch unit 
defines the installation tape drive 
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Place the card deck produced as output from this job in the card 
reader and have the operator issue the necessary commands to execute the 
job stream. 


Generation of Compiler Diagnostic Messages 


The user should request a complete listing of the diagnostic messages 
generated by this compiler. This is done by compiling a program with a 
PROGRAM- ID of ERRMSG- (In this case, a normal compilation never takes 
place. Only a list of all error messages and problem determinations is 
produced. The link option is reset if it was in effect.) 

Figure 10 shows a COBOL program that produces compiler diagnostic 
messages . 


r ~ - - 1 '■ - — i 

// JOB ERRORMSG User information | 

// EXEC FCOBOL j 

ID DIVISION. | 

PROGRAM-ID. ERRMSG. j 

REMARKS. COMPILATION OF THIS PROGRAM WILL RESULT IN ALL | 

COMPILER DIAGNOSTICS BEING PRODUCED-NO OBJECT MODULE | 

IS PRODUCED. | 

-NO COMPILE-TIME | 

STATISTICS ARE | 

PRODUCED. j 

ENVIRONMENT DIVISION. j 

DATA DIVISION- j 

PROCEDURE DIVISION. j 

* THE SAME RESULTS CAN BE ACHIEVED BY CHANGING THE j 

* PROGRAM-ID OF ANY PROGRAM TO ‘ERRMSG*. | 

STOP RUN- j 

t— . - j 

Figure 10- A Program that Produces COBOL Compiler Diagnostics 


SEPARATE LIBRARY INSTALLATION FROM TAPE 


The library is also distributed separately on a tape that consists of 
80-byte, fixed-length records, blocked 43 records per block (blocksize 
is 344 0 bytes) . 

The library installation tape contains two unlabeled files separated 
by tapemarks- 

The first file contains a job that catalogs the subroutines and LIOCS 
modules into the relocatable library. Either the system or a private 
relocatable library may be used. This job must be run in the background 
partition, and the relocatable library must not be shared during the 
job. 

The second file contains two jobs that link edit and catalog the 
library transients and the dynamically-loaded subroutines into the core 
image library. Either the system or a private core image library may be 
used- This job may be run in any partition. 
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Installing -the Subroutine Library Modules into the Relocatable Library 


Before you can install the library, you must deblock the files on the 
installation tape. The following example shows how to use the DSTRB 
utility to deblock the first file. 


Position the installation tape at the beginning of the first file and 
execute the following job. 


// JOB DEBLOCK 
// ASSGN SYS004,X*CUU* 
// ASSGN SYS005 ,X*CUU* 
// TLBL UOUT, 'f ile-id* 
// EXEC DSTRB 
// (JDS TLBL 
// END 
/& 


where: cuu is the unit address of the tape drive on which the 

tape is mounted. SYS004 is the installation tape 
supplied by IBM; SYS005 is the tape to be used for 
deblocked output. 


file- id is the unique name for the file on the output tape. 


Note : The output tape does not rewind. It must be reset to load 
point before the subroutine library modules can be installed. Do 
not rewind the installation tape. 


Use the deblocked file to install the Subroutine Library into the 
relocatable library. Execute this job in the background partition. 
Assign SYSRDR and SYSIPT as shown below to the tape unit on which the 
deblocked tape is mounted. 


ASSGN SYSIPT, X* CUU* i 

> or ASSGN SYSIN,X'CUU' 

ASSGN SYSRDR, X* CUU* j 

where: cuu is the unit address of the tape drive on which the 

deblocked tape is mounted. 


After the operator has entered the commands, the system executes the job 
on the first file. Following the JOB control statement, there is a 
PAUSE control statement. The PAUSE statement enables you to specify a 
private relocatable library by assigning SYSRLB. 

This job adds the subroutine library modules and the LIOCS modules to 
the relocatable library. It must be run in the background and the 
relocatable library must not be shared during the job. When the PAUSE 
message appears, enter an ASSGN command for SYSRLB if you wish the 
modules to be added to a private relocatable library. To add the 
library subroutines and LIOCS modules to the system relocatable library, 
simply signal END/ENTER in response to the message. 
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Cataloging the Subroutine Library Transients and Dynamically-Loaded 
Subroutines into the Core Image Library 


The following example shows how to use the TPTP utility to deblock the 
second file. « This file contains two jobs to catalog the library 
transient- and dynamically- loaded subroutines into the core image 
library. 


Position the installation tape at the beginning of the second file 
and execute the following job. 

// JOB DEBLOCK 

// ASSGN SYS004 , X'cuu* installation tape 
// ASSGN SYS005 , X* cuu* work tape 
// TLBL UOUT, ' f ile- id * 

// EXEC DSTRB 
// UDS DBL 
// END 
/& 


where: cuu is the unit address of the tape drive on which the 
tape is mounted. SYS004 is the installation tape 
supplied by IBM; SYS005 is the tape to be used for 
deblocked output. 

file- id is the unique name of the file on the output tape. 

Note : The output tape does not rewind. It must be reset to load 

point before cataloging of the subroutines into the core image 
library can be done. Do not rewind the installation tape. 

After the second file has been deblocked, and the DOS system 
libraries have been prepared, use it to catalog the library transients 
(J0B2) and the dynamically-loaded subroutines (J0B3) into the core image 
library. 

Run this job in the partition in which you wish to install the 
library. Assign SYSRDR and SYSIPT as shown below to the unit where the 
deblocked file is ready. 

ASSGN SYSIPT, X* cuu' ) 

> or ASSGN SYSIN,X'cuu* 

ASSGN SYSRDR, X' CUU* ) 


where: cuu is the unit address of the tape drive containing the 
deblocked file. 

If you plan to use the compiler and library with CMS/DOS, you must 
install it in the background partition. You must also link-edit all the 
compiler relocatable modules using the following linkage editor control 
statement: 

ACTION REL 

After the operator has entered the command, the system begins 
executing the jobs. Following each job control statement, there is a 
PAUSE control statement. 

The first job adds the transient routines to the core image library. 
When the PAUSE message appears, these routines can be added to a private 
core image library by entering an ASSGN command for SYSCLB to define the 
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private core image library. To add the transient routines to the system 
core image library, simply signal END/ENTER in response to the message. 

The second job adds the dynamically loaded subroutines to the core 
image library. These subroutines are self -relocatable. To f add the 
dynamically loaded subroutines to a private core image library, respond 
to the PAUSE message by entering an ASSGN command for SYSCLB to define 
the private core image library. To add the routines to the system core 
image library, simply signal END/ENTER in response to the message. 

During link editing of these dynamically loaded subroutines, an 
unresolved external reference is created for the IOCS module IJJCPDV2. 
The reference is resolved during execution of the routines. 

Responses to the PAUSE messages are summarized in Figure 11. The 
summary assumes the necessary volumes are mounted on disk drives 191 and 
192. 


(PAUSE Message 




User Response 


j Result 


JOB 1 (File 1) 

IF YOU WISH TO PUT 
SUBROUTINES IN PRIVATE 
RELOCATABLE LIBRARY, YOU MAY 
ASSIGN IT AFTER PAUSE. 


END/ENTER (Subroutines and IOCS 

(modules added to 
( system relocatable 
( library. 

or ( or 

ASSGN SYSRLB, X' 191' j Subroutines and IOCS 

(modules added to 
(private relocatable 
(library. 


JOB 2 (File 2) 

YOU MAY ASSIGN A PRIVATE 
CORE IMAGE LIB AT PAUSE. 
NOT, END/ENTER. 


IF 


END/ENTER (Transient routines 

(added to system 
(core image library, 
or ( or 

ASSGN SYSCLB, X' 192' (Transient routines 

( added to private 
j core image library. 


J0B3 (File 2 ) 

YOU MAY ASSIGN A PRIVATE 
CORE IMAGE LIB AT PAUSE. 
NOT, END/ENTER. 


IF 


f- 


END/ENTER j Dynamically loaded 

( subroutines added to 
( system core image 
(library. 

or j or 

ASSGN SYSCLB, X' 192' (Dynamically loaded 

( subroutines added to 
(private core image 
(library. 


Note: Each ASSGN command must be followed by DLBL and EXTENT commands 

if no label for the private library defined in the command exists in 
the partition standard labels. 


Figure 1 1. Responses to PAUSE Messages in Cataloging Library From Tape 


As a result of executing the three jobs on the first and second files 
of the installation tape, the library modules are cataloged into the 
relocatable library and the core image library that you have specified. 
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INSTALLATION FROM DISK 


The compiler and library can be ordered on a disk supplied by the 
customer or a disk purchased from IBM. 

The installation disk contains four files consisting of 80-byte , 
fixed- length records, blocked 43 records per block (blocksize is 3440 
bytes) . 

The first file contains a job that catalogs the compiler and library 
object modules into the relocatable library. Either the system or a 
private relocatable library may be used. This job must be run in the 
background partition, and the relocatable library must not be shared 
during the job. The name of this file on the installation disk is 
1 N5746CB 1. VSANSCOB.JOB1 * . 

The second file contains three jobs consisting of the control 
statements needed to link edit and catalog the compiler phases, library 
transients, and dynamically- loaded subroutines into the core-image 
library. Either the system or a private core-image library may be used. 
These jobs may be run in any partition. The name of this file on the 
installation disk is «N5746CEl.-VSANSCOB. JOB2 • . 

The third file is the sample program provided by IBM. Use this 
program to verify that the compiler has been successfully installed. 

See "Using the Sample Program" in this section for instructions. The 
name of this file on the installation disk is 
• N 57 4 6 CB 1 . VS AN SCOB . SAMPROG • J 

The fourth file is for 3886 users. It contains a job which catalogs 
Data and Procedure Division COPY statements into the source statement 
library. See "3886 Considerations" in this section for instructions. 

The name of this file on the installation disk is 
•N5746CB 1. VSANSCOB.CPY3886 * . 


Installing the Compiler and Library Modules into the Relocatable Library 


Before you can install the compiler and library, you must deblock the 
files on the installation disk. The following example shows how to use 
the DSTRB utility to deblock the first file. 

// JOB DEBLOCK DISK TO DISK 

// ASSGN SYS 00 4, X* cuu* installation disk 

// ASSGN SYS005, X*cuu* deblocked output disk 
// DLBL UIN, 'N5746CB1.VSANSCOB.JOB1* 

// EXTENT SYS004 

// DLBL UOUT, * DOS VS COBOL* 

// EXTENT SYS005, 111 111, 1,0,100,500 
// EXEC DSTRB 
// UDS DBL 
// END 
/& 

where: cuu is the unit address of the disk drives. SYS004 is the 

installation disk supplied by IBM; SYS005 is the disk 
to be used for the deblocked output. 

After the DOS/VS system libraries have been prepared, you may use the 
deblocked file to install the compiler and library into the relocatable 
library by running the following job in the background partition. 
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Place these cards in the card reader and then signal END/ENTER. 


// DLBL ILSYSIN, * DOS VS COBOL* 


ASSGN SYSIPT, X*CUU * ) 

> or ASSGN SYSIN,X'cuu' 
ASSGN SYSRDR,X*CUU* J 


where: cuu is the unit address of the drive containing the 
deblocked file. 


After the DOS/VS system libraries have been prepared, have the 
operator issue the necessary commands to execute the job stream in the 
background partition. 


Following the JOB control statement in the input stream, there is a 
PAUSE control statement. The PAUSE statement enables you to specify a 
private relocatable library by assigning SYSRLB. 


The PAUSE card causes a message to appear on the console. To add the 
compiler and library to a private relocatable library, respond to this 
message by entering an ASSGN command for SYSRLB to define the private 
library- To add the compiler and library to the system relocatable 
library, simply signal END/ENTER in response to the message. This job 
must be run in the background and the relocatable library must not be 
shared during the job. 


Cataloging the Compiler and Library into the Core Image Library 


Before you can catalog into the core image library, you must deblock the 
second file on the installation disk. The following example shows how 
to use the DSTRB utility to deblock the second file. 

// JOB DEBLOCK DISK TO DISK 
// ASSGN SYS004 ,X*cuu * installation disk 

// ASSGN SYS005,X*cuu' deblocked output disk 
// DLBL UIN , • N5 746CB1 . VSANS COB. J0B2 * 

// EXTENT SYS 00 4 

// DLBL UOUT, *DOS VS COBOL' 

// EXTENT SYS005, 111111 ,1,0,600,2 
// EXEC DSTRB 
// UDS DBL 
// END 
/& 


where: cuu is the unit address of the disk drives. SYS004 is the 
installation disk supplied by IBM; SYS005 is the disk 
to be used for the deblocked output. 

After the DOS system libraries have been prepared, you may use the 
deblocked file to catalog the compiler and library into the core image 
library by running the following job in the partition where you would 
like the compiler and library installed. 
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Place the following cards in the card reader and signal END/ENTER. 

// DLBL IJSYSIN, * DOS VS COBOL* 

ASSGN SYSIPT, X*CUU * ) 

> Or ASSGN SYS IN , X * CUU * 

ASSGN SYSRDR, X* CUU * ) 

where: cuu is the unit address of the drive containing the 
deblocked file. 


After the DOS/VS system libraries have been prepared, have the 
operator issue the necessary commands to execute the job stream in the 
partition where you would like the compiler and library installed. 


If you plan to use the compiler and library with CMS/DOS, you must 
install it in the background partition. You must also link-edit all the 
compiler relocatable modules using the following linkage editor control 
statement: 


ACTION REL 


After the operator has initiated the job, a PAUSE card message will 
appear on the console enabling you to add the compiler and library to a 
private core image library. To do this, respond to the message by 
entering an ASSGN command for SYSELB to define the private relocatable 
library to which the modules have been added. Enter a second ASSGN 
command for SYSCLB to define the private core image library to which the 
compiler and library are to be added- To add the compiler and library 
to the system core image library, simply signal END/ENTER in response to 
the message. If you have added the compiler and library to a private 
relocatable library but want to add them to the system core image 
library, respond to the message by entering an ASSGN command for SYSRLB 
to define the private relocatable library to which the compiler and 
library have been added. 


Responses to the PAUSE messages are summarized in Figure 12. The 
summary assumes the necessary volumes are mounted on disk drives 191 and 
192. 
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Figure 12. Responses to PAUSE Messages in Cataloging Compiler and 
Library From Disk 


Using the Sample Program 


The sample program provided by IBM helps you verify that the DOS/VS 
compiler has been successfully installed. The sample program, TESTRUN, 
creates a blocked, labeled, standard sequential file, on a tape assigned 
to SYS008, and then reads it back in. This tape is assigned to device 
address 483. A source statement listing appears in the publication 
DOS/VS COBOL Compiler and Library Programmer's Guide. 
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To use the sample program to verify the installation, deblock and 
punch the third file onto cards as shown below. 


// JOB SAMPLE 

// ASSGN SYS006 ,X*cuu' defines the system punch unit 

// ASSGN SYS009,X'cuu* defines the installation disk drive 

(standard labels assumed) 

// DLBL UIN , • N5746CB1 . VSANSCOB. SAMPROG* 

// EXTENT SYS009 
// EXEC DSTRB 
// UDS DBL 
// END 
/& 


Place the card deck produced as output from this job into the card 
reader. When you are ready to run the sample program, have the operator 
issue the necessary commands to execute the job stream. 

Successful compilation of the sample program will produce the 
following output: 

1. A listing of the job control statements. 

2. A listing of the source program. 

3. A glossary of compiler- gene rated information about data, as well as 
global tables, literal pools, and register assignments. 

4. A listing of the object code. 

5. A cross-reference listing. 

6. Linkage editor diagnostic output and a map of virtual storage. 

7. Execution time output produced by the sample program. 


3886 Considerations 


The two COBOL source statement library members provided by IBM allow the 
3886 user to copy standard Data and Procedure Division statements into a 
COBOL program. An illustration of these source statements appears in 
the publication IBM DOS/VS COBOL Compiler and Library Programmer's 
Guide . Note : The 3886 is not supported in CMS/DOS. 

To install these members in the source statement library, deblock and 
punch the fourth file on the installation tape onto cards as shown 
below. 

// JOB DEBLOCK 

// ASSGN SYS006,X'cuu' defines the system punch unit 

// ASSGN SYS009 yX'cuu* defines the installation disk 

(standard labels assumed) 

// DLBL UIN, 1 N5746LM4 . VSANSLIB. CPY3 886* 

// EXTENT SYS009 
// EXEC DSTRB 
// UDS DBL 
// END 
/& 
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Place the card deck produced as output from this job in the card 
reader and have the operator issue the necessary commands to execute the 
job stream. 


Generation of Compiler Diagnostic Messages 


See "Generation of Compiler Diagnostic Messages" in the section 
"Installation from Tape. " 


I 
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SEPARATE LIBRARY INSTALLATION FROM DISK 


The DOS/VS Subroutine Library can also be ordered separately on a disk 
supplied by the customer or a disk purchased from IBM. 

The installation disk contains two files consisting of 80-byte, 
fixed- length records, blocked 43 records per block (blocksize is 3440 
bytes). These files are shown in Figure 13. 

The first file contains the job control statements, control cards, 
and object modules needed to place the library subroutines and the LIOCS 
modules required by the compiler into the relocatable library. Either 
the system relocatable library or a private relocatable library can be 
used. This job must be run in the background and the relocatable 
library must not be shared during the job. The name of this file on the 
installation disk is •N5746LM4.VSANSLIB.JOB1'. 

The second file contains two jobs to link edit and catalog the 
library transients and dynamically-loaded subroutines into the core 
image library. Either the system core image library or a private core 
image library can be used. This job may be run in any partition. The 
name of this file on the installation disk is *N5746.LM4.VSANSLIB. JOB2* . 



> FIRST FILE 




> SECOND FILE 




Figure 13. Subroutine Library Installation Disk 


Installing the Object-Time Subroutines into the Relocatable Library 


Eefore you can install the DOS/VS Subroutine library, you must deblock 
the files on the installation disk,. The following example shows how to 
use the DSTRB utility to deblock the first file. 
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// JOB DEBLOCK DISK TO DISK 
// ASSGN SYSO 04, X'cuu' installation disk 

// ASSGN SYS005 , X'cuu' deblocked output disk 

// ELBL UIN,*N5746LM4.VSANSLIB. JOB1 ' 

// EXTENT SYS004 

// DLBL UOUT, 'DOS VS COBOL' 

// EXTENT SYS005, 11 1111 ,1,0,100, 150 
// EXEC DSTRB 
// UDD UDS DBL 
// END 
/& 

where: cuu is the unit address of the disk drives; SYS004 is the 

installation disk supplied by IBM; SYS005 is the disk 
to be used for the deblocked output. 

After the DOS system libraries have been prepared, use the deblocked 
file to install the object-time subroutines into the relocatable library 
directly from disk by running the following job in the background 
partition. 

Place the following cards in the card reader and signal END/ENTER. 

//DLBL IJSYSIN, 'DOS VS COEOL' 

ASSGN SYSIPT, X'cuu* ) 

> or ASSGN SYSIN, X'CUU* 

ASSGN SYSRDR, X'cuu' ) 

where: cuu is the unit address of the drive containing the 

deblocked file. 

Have the operator issue the necessary commands to execute the job 
stream. The job stream must be run in the background partition. 

Following the JOB control statement in the input stream, there is a 
PAUSE control statement. The PAUSE statement enables you to specify a 
private relocatable library assigning SYSRLB. 

This job adds the subroutine library modules and the IOCS modules to 
the relocatable library,. When the PAUSE message appears, enter an ASSGN 
command for SYSRLB if you wish the modules to be added to a private 
relocatable library. To add the library modules and IOCS subroutines to 
the system relocatable library, simply signal END/ENTER in response to 
the message- This job must be run in the background, and the 
relocatable library must not be shared during the job. 


Cataloging the Library Transients and Dynamically-Loaded Subroutines 
into the Core Image Library 


The following example shows how to use the DSTRB utility to deblock the 
second file, which contains two jobs to catalog the library transients 
and dynamically- loaded subroutines into the core image library. 

// JOB DEBLOCK DISK TO DISK 
// ASSGN SYS004 , X'cuu' installation disk 

// ASSGN SYS005, X'cuu' deblocked output disk 
// DLBL UIN, ' N5746LM4. VSANSLIB. JOB2 ' 

// EXTENT SYS004 

// DLBL UCUT, 'DOS VS COBOL' 

// EXTENT SYS005 , 111111, 1,0, 2 50, 100 
// EXEC DSTRB 
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// UDS DBL 
// END 
/& 


where: cuu is the unit address of the disk drives; SYS004 is the 

installation disk supplied by IBM; SYS005 is the disk 
used for the deblocked output. 

After the DOS/VS system libraries have been prepared, you may use the 
deblocked file to catalog the library transients and dynamically-loaded 
subroutines into the core image library directly from disk by running 
the following job in the partition where you would like the library 
installed. 

Place the following cards in the card reader and signal END/ENTER. 

// DLBL IJSYSIN, 'DOS VS COBOL* 

ASSGN SYSIPT, X'cuu * ) 

> or ASSGN SYSIN ,X ' CUU * 

ASSGN SYSRDR, X'CUU* ) 

where: cuu is the unit address of the drive containing the 

deblocked file. 

If disk space is severely limited, you may want to install the 
library transients and dynamically-loaded subroutines from card input 
(there are approximately 800 cards) . First use the following job 
control statements to punch the installation jobs from the disk onto 
cards. 

// JOB DSKTOCD 

// ASSGN SYSO 06 , X'cuu* defines system punch unit 

// ASSGN SYS009, X'cuu' defines installation disk drive 

(standard labels are assumed) 

// DLBL UIN , * N5746LM4 .VSANSLIB. JOB2 ' 

// EXTENT SYS009 
// EXEC DSTRB 
// UDS DBL 
// END 
/& 

When the job is completed, place the output deck into the card 
reader. Have the operator issue the necessary commands to execute the 
job stream. The job stream must be run in the partition in which the 
library transients and dynamically-loaded subroutines are to be 
installed. 

If you plan to use the compiler and library with CMS/DOS, you must 
install it in the background partition. You must also link-edit all the 
compiler relocatable modules using the following linkage editor control 
statement: 

ACTION REL 

After the operator has entered the command and indicated END/ ENTER, 
the system begins executing the jobs. Following each JOB control 
statement there is a PAUSE control statement. 

The first job adds the transient routines to the core image library. 
When the PAUSE message appears, these routines can be added to a private 
core image library by entering an ASSGN command for SYSCLB to define the 
private core image library. To add the transient routines to the system 
core image library, simply signal END/ENTER in response to the message. 
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The second job adds the dynamically loaded subroutines to the core 
image library. These subroutines are self -relocatable. To add the 
dynamically loaded subroutines to a private core image library, respond 
to the PAUSE message by entering an ASSGN command for SYSCLB to define 
the private core image library. To add the routines to the system core 
image library, simply signal END/ENTER in response to the message. 

During link editing of these dynamically loaded subroutines, an 
unresolved external reference is created for the IOCS module IJJCPDV2. 
The reference is resolved during execution of the routines. 

Responses to the PAUSE messages are summarized in Figure 14. The 
summary assumes the necessary volumes are mounted on disk drives 191 and 
192. 


PAUSE Message 


JOB 1 (File 1) 

IF YOU WISH TO PUT 
SUBROUTINES IN PRIVATE 
RELOCATABLE LIBRARY, YOU MAY 
ASSIGN IT AFTER PAUSE. 


J0B2 (File 2) 

YOU MAY ASSIGN A PRIVATE 
CORE IMAGE LIB AT PAUSE. IF 
NOT, END/ENTER. 


JOB 3 (File 21 

YOU MAY ASSIGN A PRIVATE 
CORE IMAGE LIB AT PAUSE. IF 
NOT, END/ENTER. 


User Response (Result 

r 1 

I 

I 

END/ ENTER (Subroutines and IOCS 

( modules added to 
(system relocatable 
( library. 

or j or 

ASSGN SYSRLB,X* 191' (Subroutines and IOCS 

(modules added to 
(private relocatable 
| library. 

1 


END/ENTER (Transient routines 

(added to system 
(core image library, 
or ( or 

ASSGN SYSCLB, X' 192' (Transient routines 

J added to private 
(core image library. 


END/ENTER (Dynamically loaded 

( subroutines added to 
( system core image 
j library. 

or ( or 

ASSGN SYSCLB, X* 192* (Dynamically loaded 

(subroutines added to 
(private core image 
( library. 


Figure 1 4. Responses to PAUSE Messages in Cataloging Library From Disk 


Note ; Each ASSGN command must be followed by DLBL and EXTENT commands 
if no label for the private library defined in the command exists in the 
partition standard labels. 
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STORAGE REQUIREMENTS 


This section defines the partition size required by the DOS/VS compiler 
alone and the storage required by the compiler together with the DOS/VS 
subroutine library on the core image library. The storage needed for 
the compiler, subroutines, and required IOCS modules on the relocatable 
library is also given. 


VIRTUAL STORAGE 


Minimum 60K bytes of virtual storage. The compiler needs added virtual 
storage if a BUF parameter is specified on the CBL card. Enough extra 
storage must be allocated to compensate for six buffers of that size. 


CORE IMAGE LIBRARY 


f ■ — • - — — - — 

j Number of Phases 

l 


— , — 
1 

1 

1 

. i 

- - ■ i 

Number of Library Blocks j 

For Release 29* j 

(Physical Records) | 

1 

J Compil er 

24 

1 

1 

i 

511 j 

| Transient routines 

4 

1 

1 

i _ 

4 j 

1 

| Library Phases 

14 

t 

1 

» 

32 j 

| *All supported devices. 

i 



1 


Compiler Phases 


FCOBOL 
FCOBOL05 
FCOBOL 06 
FCOBOL 07 
FCOBOL 08 
FCOBOL 10 
FCOBOL 11 
FCOBOL 12 
FCOBOL20 
FCOBOL 21 

FCOBOL 2 2 
FCOBOL25 
FCOBOL 30 
FCOBOL40 
FCOBOL 50 
FCOBOL51 
FCOBOL 60 
FCOBOL62 
FCOBOL 6 3 
FCOBOL64 
FCOBOL 6 5 
PCOBOL61 
FCOBOL 70 
FCOBOL 80 


(Note 1) 

(Note 2) 

(Note 3) 

(Note 2) 
(Note 4) 
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Note 1 : Phases FCOBOL05 , FCOBOL06, FCOBOL07, and FCOBOL08 are executed 
only when the lister feature is used. 

Note 2 : Phases FCOBOL25 and FCOBOL65 are executed only when symbolic 
debugging is used. 

Note 3 : If optimization is not requested, phase FCOBOL60 is called 
instead of FCOBOL62, FCOBOL63, and FCOBOL64. 

Note 4 ; If FIPS processing is not requested, phase FCOBOL80 is not 
called, and compilation terminates after phase FCOBOL70. 


Transient Routines 


$$BCOBEM (Executed only when SYMDMP, FLOW, STATE, or COUNT is 
specified.) 

$$BCOBER 

$$BC0BR1 

$$BFCMUL 


Library Phases 


Executed only when SYMDMP is specified. 

ILBDMP01 
ILBDMP02 
ILBDMP04 
ILBDMP10 
ILBDMP1 1 
ILBDMP12 
ILBDMP13 
ILBDMP14 
ILBDMP20 
ILBDMP21 
ILBDMP22 
ILBDMP23 
ILBDMP24 
ILBDMP25 
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RELOCATABLE LIBRARY 


1 

! 

1 

Number 

of Modules 

T . .... 

1 

1 

i 

Number of Library Blocks 
(Physical Records) 

1 

1 

! 

4 

i — 
1 

Compiler 

I 

_ 1 

i 

39 j 

i 

2473 

1 

1 

1 

i — 

I 

i 

Library 

1 

! 

t 

si i 

i 

425 

1 

1 

f 

I 

1 

IOCS 

i 

I 

. .. « 

1 

7 1 

1 

32 

1 

I 

1 


Compiler Modules 


ILACBVS 

ILACBLOO 

ILACBL01 

ILACBL05 

ILACBL06 

ILACBL07 

I LAC BL 08 

ILACBL10 

ILACBL1 1 

ILACEL12 
I LAC BL 20 
ILACBL21 
ILACEL22 
ILACBL25 

ILACBL30 

ILACBL40 

ILACBL50 

ILACBL51 

ILACBL60 

ILACBL62 
ILACBL63 
I LAC BL 64 
ILACBL65 
ILACBL61 
ILACBL70 

ILACBL80 

ILACBL81 

ILACBL82 

ILACBL83 

ILACBL84 

ILACBL85 

ILACEL86 

ILACBL87 

ILACBL88 

ILACBL89 

ILACBL8A 

ILACBL8B 

ILACBL8C 

ILACBL8D 
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Subroutines 


Library Modules 


bytes of Virtual Storage 


ILBDABXO 

412 

I LB DACPO 

1050 

ILBDAERO 

350 

ILBDANEO 

322 

ILBDANFO 

110 

ILBDASYO 

88 

ILBCATBO 

256 

I LB DB IDO 

112 

ILBDBIEO 

116 

ILBDBIIO 

464 

ILBDCKPO 

849 

ILBDCLKO 

56 

ILBDCLSO 

1 50 

ILBDCRDO 

150 

ILBDCT10 

480 

ILBDDAEO 

344 

ILBDDEGO 

2804 

IL3DDCI0 

177 

ILBDDIO0 

720 

ILBDDSPO 

1328 

ILBDDSRO 

334 

ILBDDSSO 

808 

ILBDDUMO 

2 

ILBDEFLO 

524 

ILBDE1B0 

2 56 

ILBDFLWO 

1256 

ILBDFMTO 

182 

ILBDFFWO 

808 

ILBDGDOO 

1 60 

ILBDGPWO 

88 

I LB El DAO 

396 

ILBDIDBO 

1 16 

ILBDIDRO 

1663 

ILBDIDTO 

6 92 

ILBDI FBO 

296 

IL3EIFDO 

1 56 

ILBDI tfLO 

98 

ILBDINTO 

288 

ILBDI SEO 

480 

ILBDI SMO 

366 

ILBDI TBO 

2 56 

ILBDI VLO 

72 

ILBDMFTO 

1 48 

ILBDMNSO 

1 

ILBDMCVO 

66 

ILBDMRGO 

11 48 

ILBDMVEO 

224 

ILBDNSLO 

616 

ILBDOCRO 

1922 

ILBDOSYO 

132 

ILBDRCRO 

1 48 

ILBDRDIO 

408 

ILBDRDSO 

238 


Blocks 


1 


1 


1 
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DIAGNOSTIC MESSAGES 


This section describes diagnostic messages issued in connection with the 
DOS/VS Compiler and Subroutine Library. They are grouped as follows: 

• Compile-time messages from the compiler concerning the compilation 
of the source program, e.g., syntax. 

• Operator messages from the compiler concerning conditions that 
inhibit its functioning, e.g., too small a partition. 

• Object-time messages issued by the object program itself that are 
numbered . 

• Object-time messages that are not numbered. 

This section should be used with the publication DOS/VS Messages . 


COMPILE- TIME MESSAGES 

A complete listing of all the error messages produced by the compiler 
can be obtained by compiling a program with a PROGRAM- ID of ERRMSG. The 
listing consists of: 

• Compiler identification and level 

• Brief description of the remainder of the listing 

• Description of listing conventions 

• Action codes and meanings 

• General procedure in recurring problem situations 

• Error messages in the following format: 

— Message number 

— Severity level 
— Action code 
— Message text 

OPERATOR MESSAGES 

The following messages are issued during compilation on SYSLOG. They 
are also printed on SYSLST with the prefix I LA. 

Cl 001 PARTITION IS LESS THAN 60K. 

Explanation : At least 60 K is required to compile using DOS/VS 

COBOL. Probable user error. 

S ystem Action : The compilation is terminated. 
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Operator Response ; Make sure the compiler has at least 60K 
available to it. If the problem recurs, do the following to 
complete your problem determination action before calling IBM for 
programming support: 

1. Execute the MAP command and save the output. 

2. Have the source deck, control cards, output listing, and 
console sheet available. 


C101I DEVICE NOT ASSIGNED - SYSnnn. 

Explanation : (nnn is either 001, 00 2, 003, or 004.) The 

specified logical unit is unassigned and must be assigned. 
Probable user error. 

S ystem Action : The compilation is terminated. 

Operator Response : Use the ASSGN command to assign a physical 
unit (magnetic tape or disk) to the file indicated. It the 
problem recurs, do the following to complete your problem 
determination action before calling IBM for programming support: 

1. Execute the LISTIO command and save the output. 

2. Have the source deck, control cards, output listing, and 
console sheet available. 


Cl 021 UNSUPPORTED DEVICE TYPE - SYSnnn. 

Explanation : (nnn is either 001, 002, 003, or 004.) The 

specified file must be a tape or disk file for SYS002 through 
SYS004. SYS001 should be assigned to disk; however, in small, 
simple programs that do not require dictionary spill, it is 
sometimes possible to compile with the spill file (SYS001) 
assigned to tape. If any spill does occur, an input/output error 
may occur. Compile-time statistics will say " DICTIONARY SPILL 
HAS OCCURRED”. No mention is made of dictionary spill in the 
compile-time statistics if spill does not occur. Probable user 
e rror . 

System Action : The compilation is terminated. 

O pe ra tor Re sponse : Use the ASSGN command to assign the 
appropriate physical unit to the file indicated -- SYS001 should 
be assigned to a magnetic tape or disk unit. If the problem 
recurs, do the following to complete your problem determination 
action before calling IBM for programming support: 

1. Execute the LISTIO command and save the output. 

2. Have the source deck, control cards, output listing, ana 
console sheet available. 

C103I END OF FILE ON SYSIPT. 

Explanation : End-of-file was encountered in the initialization 

phase; no source statements were found. Probable user error. 

S ys te m Ac ti on : The compilation is terminated. 

Operator Response : Ensure that a /* card does not precede the 
source deck, or add the source deck to the job stream. It the 
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problem recurs, do the following to complete your problem 
determination action before calling IBM for programming support: 

1- Execute the LISTIO command and save the output. 

2. Have the source deck, control cards, output listing, and 
console sheet available. 

Cl 04 1 SYS001 FILE NOT ASSIGNED TO DISK 

Explanation : In small, simple programs that do not require 

dictionary spill, it is sometimes possible to compile with the 
spill file (SYS001) assigned to tape. However, if any spill does 
occur, an input/output error may occur. Any compilation which 
spills the dictionary will contain a message in compile-time 
statistics.. User error. 

System Action : The compilation continues- 

Operator Response : Use the ASSGN command to assign SYS001 to a 
disk unit. If the problem recurs, do the following to complete 
ycur problem determination action before calling IBM tor 
programming support: 

1. Execute the LISTIO command and save the output. 

2. Have the source deck, control cards, output listing, and 
console sheet available. 

C105I W-CANNOT OPEN SYS005 — SYMDMP IGNORED. 

Explanation : The SYMDMP option has been specified, but the tile 
needed for symbolic debug cannot be opened since SYS005 is 
unassigned. Probable user error. 

System Action : The SYSDMP option is canceled, and the 
compilation continues. 

Operator Response : Use the ASSGN command to assign SYS005 to a 
physical unit. If the problem recurs, do the following to 
complete your problem determination before calling IBM for 
programming support: 

1. Execute the LISTIO command and save the output. 

2. Have the source deck, control cards, output listing, and 
console sheet available. 

Cl 061 SYS006 IS NOT A DISK. NOLVL ASSUMED. 

Explanation : The specified logical unit is not assigned to a 
disk. 

System Action : Compilation continues with NOLVL. 

Operator Response : Use the ASSGN command to assign SYS006 to a 
disk unit. 
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NUMBERED OBJECT- TIME MESSAGES 


The following messages are normally issued on SYSLOG. 

C110A STOP literal 

Explanation : The programmer has issued a STOP literal statement 

in the DOS/ VS COBOL source program. 

System Action : Awaits operator response. 

Programmer Response : Not applicable. 

Operator Response : Respond with end-of -block , or with any 
character in order to proceed with the program. 

C111A AWAITING REPLY 

Explanation : This message is issued in connection with the 

DCS/VS COBOL ACCEPT statement. 

System Action : Awaits operator response. 

Programmer Response : Provide the operator with instructions. 
Operator Response : Reply as specified by the programmer. 


The following messages are issued on SYSLOG and SYSLST prior to 
cancellation of the job. If the DUMP option is specified, a partial 
dump is taken from the problem program origin to the highest virtual 
location of the last phase loaded. When this occurs, the eight bytes 
immediately preceding the DTF are destroyed. The messages have the 
form: 


CmmmI SYSnr.n filename DTFadaress text 
whe re : 

mmm and text correspond as follows: 

mmm text 

112 DATA CHECK 

113 WRONG LENGTH RECORD 

114 PRIME DATA AREA FULL 

115 CYLINDER INDEX TOO SMALL 

116 MASTER INDEX TOO SMALL 

1 1 7 OVERFLOW AREA FULL 

118 DATA CHECK IN COUNT 

119 DATA CHECK IN KEY OR DATA 

120 NO ROOM FOUND 

121 DASD ERROR 

122 DASD ERROR WHILE ATTEMPTING 

TO WRITE RECORD ZERO 

123 FILE CANNOT BE OPENED AFTER 

CLOSE WITH LOCK 

124 CYLINDER AND MASTER INDEX TOO SMALL 
nnn is equal to 001 through 255 

filename is seven or fewer characters and is generated from 
the file-name specified in the SELECT sentence, 
address is the hexadecimal address of the file's DTF table 
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E xplanation : Condition indicated occurred on SYSnnn 


System Action : The job is canceled. 


P rogrammer Response : Rerun the job or add a user Declarative 
Section to the Procedure Division of the source program to handle 
errors within the program- 

If the recurs , do the following problem before calling IBM tor 
programming support: have source deck, control cards, compiler 
output., and console sheet available. 

Operator Response : Not applicable. 

Cl 251 NO EXTENTS 

Explanation : During CLOSE UNIT processing, no extent is found 

for the next volume. 

System Action : The job is canceled. 

Programmer Response : Rerun job with proper EXTENT (XTENT) 
statements. 

If the problem recurs, do the following to complete your 
problem determination action before calling IBM tor programming 
support: have source deck, control cards, compiler output, and 
console sheet available. 

Operator Response : Not applicable. 


The following message is issued on SYSLOG: 

C126D SYSnnn IS IT EOF? 

where nnn is equal to 001 through 255 

Explanation : A tapemark was just read on an unlabeled tape tile 

described at compilation time as having more than one reel. 

System Action : Awaits response from operator. 

P rogrammer Response : Not applicable. 

Operator Response : Respond with N if it is end of volume, or 
with Y if it is end of file. 


The following messages are issued on SYSLOG and SYSLST: 

C127D NO EOF RECORD WRITTEN IN PRIME DATA AREA 

Explanation : During CLOSE processing of an ISAM file opened 

OUTPUT, no room was found to write an EOF record. 

Programmer Response : Rerun the job with the proper EXTENT. 

If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, compiler 
output, and console sheet available. 

Operator Response : Not applicable. 
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C128D UNRECOVERABLE I/O ERROR 


Explanation : This is probably a hardware error on tape. 


Programmer Response : Not applicable. 


Operator Response : Rerun the job. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, compiler 
output, and console sheet available. 


Cl 301 INPUT/OUTPUT ERROR. FILE STATUS SET TO xx NEAR REL LOC. xxxxxx. 


Explanation : An I/O error has occurred on the file being 
accessed by the COBOL statement at or near the relative location 
given in the message, and the user has no USE declarative tor 
that file. 

A ction : Control returns to COBOL at the statement following the 

COBOL request that caused the error. 

Programmer Response : If the error occurred on a READ operation, 
processing can continue. If the error occurred on a WRITE 
operation, there may be a loss of data. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 3 1 1 UNABLE TO OPEN FILE • SYSnnn*. CANCELING. 

Explanation : The VSAM OPEN or CLOSE request gave a return code 

of X'68* or X'6C* because of invalid time stamps in the VSAM 
catalog or VSAM file. The VSAM catalog or file should be 
recreated. See DOS/VS Supervisor and I/O Macros for more detail 
on the OPEN /CLOSE return codes. 

Action : The job is canceled. 

Programmer Response : Recreate the VSAM catalog and/or file. 

If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, ana 
compiler output available. 

Cl 401 INVALID SEPARATE SIGN CONFIGURATION 

Explanation : During execution of a COBOL program, an invalid 

sign was detected for a separately signed itern- 

Action : The job is terminated. 

Programmer Response : Probable user error, correct program's 
input data before reexecuting. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, compiler 
output, and data available. 
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The following messages (C150I-C175I) are listed on SYSLST. The 
messages have the form: 

{ program-id \ 

( text 

card/verb number \ 


Messages Cl 501 through Cl 621 may appear interspersed among the SYMDMP 
control cards at the point at which the error is encountered. 

Program- id is provided for all messages except Cl 501 through C152I. For 
these, the card/verb number of the corresponding line- control card is 
given instead. The program- id associated with C150I through C152I can 
be determined from the nearest preceding program-control card. 

Messages Cl 531 through C155I may also appear in the midst of the dump 
output if the error condition is not recognized until dumping has 
started. 

Message C171I may appear interspersed with the SYSLST output. It is 
preceded by the program- id for the program affected. 

Message C172I may appear just before the start of execution 
statistics printing. It applies to the. entire run unit. 

Cl 501 IDENTIFIER NOT FOUND. 

Explanation : An identifier specified on the line-control card 

cannot be found in the program or is invalid. Level- 66 and 
level-88 items and items defined under an RD are invalid 
requests. 

Action : The dump request for this identifier is ignored. 

Programmer Response : Probable user error. Before reexecuting, 
ensure that no requests have been made on the line-control card 
for the dumping of identifiers that have not been defined or that 
are invalid. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 51 1 CARD NUMBER NOT FOUND 

Explanation : The card number specified on the line-control card 
is not within range of the Procedure Division. 

Action : The line-control card which specifies the nonexistent 

card number is skipped. 

Programmer Response : Probable user error. Ensure that any card 
number specified on a line- control card is within range of 
numbers specified for source program before reexecuting. 

If the problem recurs, do the following before calling IBM for 
programming support: have the source deck, control cards, and 
compiler output available. 

Cl 52 1 VERB NUMBER NOT FOUND 

Explanation : The verb number specified on a line-control card 

does not exist on the card specified. 

A ction : The nearest verb number on the card specified is used. 
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Programmer Response ; Probable user error. Correct verb number 
specification before reexecuting. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


Cl 531 NC ROOM TO DUMP. 

Explanation : If this message immediately follows -a 

program-control card, sufficient storage is not available for the 
debug subroutine or for the 72 bytes of data required for each 
program in the run unit. If this message follows an abnormal 
termination message, one or more of the following is nor 
available in free srorage or in the COBOL Procedure Division: a 
contiguous block of 4000 bytes, a contiguous block of 1800 bytes, 
or a contiguous block of 512 bytes. 

Action : No Data Division dump for the indicated program and, in 

some instances, no statement number information, is provided. 

Programmer Response : Probable user error. Increase the size of 
the partition before reexecuting. See "Symbolic Debug 
Considerations" for information about storage requirements for 
symbolic debugging. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 541 I/O ERROR ON DEBUG FILE. 

E xplanation : An input/ cut put error has occurred on the debug 
file. Note that such an error may be the result of a tile other 
than the debug file being mounted on the logical unit specified. 

Action : SYMDMP output is cancelled for the indicated program. 

Response : Hardware, operator, or user JCL error. Before 

reexecuting, check logical unit number specified on 
program-control card against current mounting, as well as the 
ASSGN, DLBL, and EXTENT cards of compilation. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 551 WRONG DEBUG FILE FOR PROGRAM. 

Explanation : The file corresponding to the filename and/or 
logical unit number provided on the program-control card is not 
the debug file created for this program at compile time. 

Action : SYMDMP output is cancelled for the indicated program. 

Programmer Response : Probable user error. Before reexecuting, 
ensure that the filename and/or logical unit specified on the 
program-control card corresponds to that of the debug file 
created at compile time. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 
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Cl 56 1 NC ROOM FOR DYNAMIC DUMP. 


Explanation : Sufficient storage is not available to store the 

line-control card information during execution. 


Action : Dynamic dumping is cancelled for the indicated program. 

Program Response : Probable user error. Increase size of 
partition or decrease number of line-control cards before 
reexecuting. 

If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 571 INVALID FILENAME. 

E xplanation : If the "filename" parameter is specified tor a disk 

file on the CBL card at compile time, the same "filename" must 
also be specified on the program- control card. "Filename" may be 
from one to seven characters in length; the first character must 
be a letter. 

Action : All SYMDMP output is cancelled for the indicated 

program. 

Programmer Response : Probable' user error. Correct "tilename" 
specification on the program- control card bet ore reexecuting. 

If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 581 INVALID LOGICAL UNIT. 

Explanati on : The logical unit parameter on the program- control 

card must be specified, must be an integer between 0 and 244, ana 
must match the one specified in the ASSGN control statement tor 
the debug at compile time. 

A ction : All SYMDMP output is cancelled for the indicated 

program. 

Programmer Response : Probable user error. Correct logical unit 
specification on program- control card before reexecuting. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 591 MISSING PARAMETERS. 

Explanation : A non-continued line-control card ends with HEX, 

OF, IN, or THRU. Possibly a continuation punch is missing in 
column 72. 

A ction : A HEX or THRU option ending a card is ignored. When a 

card ends with OF or IN, the word is ignored and the identifier 
that is dumped is the first one encountered whose qualifiers 
match those preceding the word OF or IN. 

P rogrammer Response : Probable user error, check line-control 
card for keypunch errors before reexecuting. 
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If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


Cl 601 INVALID OPTION. 

Explanation : An element used as an optional parameter on a 
program-control card is not one of the legal program-control card 
options. 

Action : The element is ignored. 

Programmer Response : Probable user error. Correct syntax of 
program-control card before reexecuting. 

If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 61 I SUBSCRIPTING ILLEGAL. 

Explanation : The "name” parameter of the line-control card may 
net be subscripted. 

Action : The subscripts are ignored. Every occurrence of the 

identifier is dumped. 

Programmer Response : Probable user error. Specify the name of 
the item without the subscripts before reexecuting. This will 
result in a dump of every occurrence of the item. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 62 1 ON PARAMETER TOO BIG. 

E xplanation : Neither the n, m, nor k parameter of the ON option 
may exceed 32767. 

Action : The number is reduced to 32767. 

Programmer Response : Probable user error- Correct invalid 
parameter before reexecuting. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 631 FLOW TRACE NON-CO NT IGUOUS . MORE THAN 10 PROGRAMS ENCOUNTERED 

Explanation : A non-contiguous flow trace will result if FLOW 

option is effective in a subprogram structure of more than 10 
programs compiled with the FLOW option. 

Action : The FLOW is terminated upon encountering the eleventh 

PROGRAM-ID. Tracing resumes only upon returning to one of the 
original tern programs. 

P rogrammer Response : Probable user error. If trace is absent 
for a program where it is critical, recompile one or more of the 
programs where the flow is non-critical without the FLOW option 
and reexecute. 
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If the problem recurs, do the following before calling I EM tor 
programming support: have source deck, control cards, and 
compiler output available. 


Cl 641 FLOW TRACE IN EFFECT BUT NO PROCEDURES TRACED. 


Explanation : Abnormal termination has taken place before any 
COBOL statement with a procedure- name has been traced. 


Action : No tracing is done. 

Programmer Response : Probable user error. If trace is desired, 
recompile the program after inserting additional procedure-names. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 6 51 S YMDMP/STATE/ FLOW/COUNT INTERNAL ERROR. EXECUTION CANCELLED. 

Explanation : Abnormal termination occurred during execution of 
one of the debugging subroutines. 

Action : The job is cancelled. 

Programmer Response : Internal logic error. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 691 STATE OPTION CANCELLED. 

Explanation : Compiler or logic error has occurred during STATE 

option processing. Under certain conditions, this error may 
result from other user errors. For example, a loop might destroy 
seme of the information required by the STATE subroutines; an 
invalid branch might cause a non-existent priority- number to be 
stored in the TGT, etc. 

Action : STATE output is cancelled,. 

Programmer Response : Probable user error. Possible compiler 
error or user error. Correct other known errors (if any) before 
attempting reexecution. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

Cl 701 INVALID ADDRESS. 

Explanation : The address calculated for a subscripted 

identifier, or a starting or ending address of a variable-length 
identifier used as the receiving field in a MOVE statement is 
invalid. 

Action : A symbolic dump is produced. 


Programmer Response : Probable user error. Possible compiler 
error or user error- Correct other known errors (if any) before 
attempting re execution. 
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Cl 7 1 1 


Cl 721 


Cl 731 


Cl 751 


If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
compiler output available. 


SPACE NOT FOUND FOR THE COUNT CHAIN. CONTINUING. 

E xplanation : A GETVIS macro was unsuccessful due to lack of 

space. 

Action : Execution continues without providing execution 

statistics for the last indicated program unit. 

P rogr amme r Re s pon se : Probable user error. Allocate more space 
on EXEC card before attempting reexecution. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

SPACE NOT FOUND FOR THE VERBS UM TABLE. CONTINUING. 

E xplanation : A GETVIS macro was unsuccessful due to lack of 

s pace . \ 

Action : Execution continues without providing verb summary 

statistics for the program. 

P rogr amme r Re spon se : Probable user error. Allocate more space 
on EXEC card before attempting reexecution. 

If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
compiler output available. 

FREEVIS FAILED. EXECUTION CANCELLED. 

E xplanation : A FREEVIS macro was unsuccessful. 

Action : Execution is terminated. 

Programmer Response : Probable user error. Allocate more space 
on EXEC card before attempting reexecution. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 

INVALID COUNT TABLE ENTRY. EXECUTION CANCELLED. 

Explanation : A count table entry in the object module is not one 

of the following: end-of-table indicator, procedure-id, or 
verb- id. 

A ction : Execution is terminated. 

Programmer Response : Probable user error. Possible compiler or ' 
user error. Check your program for routines that may have moved 
data into the count table area. Correct other known errors (it 
any) before attempting execution. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 
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UNNUMBERED OBJECT-TIME MESSAGES 


XXX. . • 

E xplanation : This message is written on the console and is 
recognizable because it is not preceded by a message code and 
action indicator. It is issued by an object program originally 
coded in COBOL. The message text is supplied by the object 
program and may indicate alternative action to be taken. 

System Action : The job continues. 

Operator Response : Operator response, if any is needed, is 
determined by the message text. 
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option effect on 31 


ZWB/NOZWB option (CBL statement) 
described 31 
format 29 


2311 disk unit, work file allocations 
to 13 

2314 disk device 

core image library storage for 59 
work file allocation to 13 
3330 disk device 

core image library storage for 59 
work file allocation to 13 
3340 disk unit, work file allocations 
to 13 

3886 Optical Character Reader 
GETVIS parameter required 27 
installation volume file for 
disk 49 
tape 40 

not supported for CMS 44,53 
source statements for installed 
disk 53-54 
tape 43-44 

virtual storage required 9 
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